论团里看到许多找怎么修改上线送VIP我今天来发个首先找到你的注册文件registersave.asp 然后用记事本打开找到下面的字行一般是在最后的那个位置 5V+i,d${4u;Oconn.execute("insertintoaccount(name,password,reg_date,vip)values("&id&","&hash&","&date()+time()&",6)")然后把最后的这个&",6)")的数字6改为你想送的VIP级0--7 如果你的注册文件里没有可以复制下面代码覆盖你的registersave.asp <% if(request("action")="save")then id=GetPostField("id") oldpass=GetPostField("oldpass") moldpass=GetPostField("moldpass") hash=GETpostfield("hash") CheckCode=GetPostField("CheckCode") ifCheckCode<>CStr(Session("CheckCode"))then msg("您填写的验证码与系统产生的不一致，请重新输入") endif if(ChkInvaildWord(id)orChkInvaildWord(oldpass)orChkInvaildWord(moldpass))then msg("请不要输入非法字符") endif ifoldpass<>moldpassthen msg("两次密码不相同") endif setrs=server.createobject("adodb.recordset") sql="select*fromaccountwherename="&id&"" rs.opensql,conn,1,1 IfNot(rs.EofAndrs.Bof)Then msg("注册失败，您输入"&id&"用户名已经被注册，请更换其它用户名") rs.Close Else继续注册 rs.Close conn.execute("insertintoaccount(name,password,reg_date,vip)values("&id&","&hash&","&date()+time()&",6)") setrs=nothing msg("恭喜你，注册成功") endif endif %>