modify.asp

树型ASP论坛下载

    alt="5.gif (219 字节)" width="14" height="18"><img src="7/8.gif"
    alt="8.gif (220 字节)" width="14" height="18"><img src="7/1.gif"
    alt="1.gif (194 字节)" width="13" height="18"><img src="7/0.gif"
    alt="0.gif (212 字节)" width="14" height="18"></td>
                <td width="88" height="4" align="center"> <input type="radio" name="ys" value="8" <%if rs("ys")=8 then%>checked<%end if%>> 
                </td>
                <td width="160" height="4" align="center"><img src="8/4.gif"
    alt="4.gif (327 字节)" width="23" height="28"><img src="8/3.gif"
    alt="3.gif (350 字节)" width="23" height="28"><img src="8/7.gif"
    alt="7.gif (323 字节)" width="24" height="28"><img src="8/1.gif"
    alt="1.gif (298 字节)" width="22" height="28"><img src="8/7.gif"
    alt="7.gif (323 字节)" width="24" height="28"></td>
              </tr>
              <tr> 
                <td width="83" height="3" align="center"> <input type="radio" name="ys" value="9" <%if rs("ys")=9 then%>checked<%end if%>> 
                </td>
                <td width="150" height="3" align="center"><img src="9/2.gif" width="12"
    height="15" alt="2.gif (2373 字节)"><img src="9/7.gif" width="10" height="16"
    alt="7.gif (2115 字节)"><img src="9/3.gif" width="11" height="15"
    alt="3.gif (2303 字节)"><img src="9/8.gif" width="10" height="15"
    alt="8.gif (2275 字节)"><img src="9/2.gif" width="12" height="15"
    alt="2.gif (2373 字节)"></td>
                <td width="88" height="3" align="center"> <input type="radio" name="ys" value="10" <%if rs("ys")=10 then%>checked<%end if%>> 
                </td>
                <td width="160" height="3" align="center"><img src="10/4.gif" width="12"
    height="15" alt="4.gif (1142 字节)"><img src="10/8.gif" width="10" height="15"
    alt="8.gif (1222 字节)"><img src="10/0.gif" width="10" height="15"
    alt="0.gif (1196 字节)"><img src="10/8.gif" width="10" height="15"
    alt="8.gif (1222 字节)"><img src="10/1.gif" width="7" height="15"
    alt="1.gif (891 字节)"></td>
              </tr>
              <tr> 
                <td width="83" height="3" align="center"> <input type="radio" name="ys" value="11" <%if rs("ys")=11 then%>checked<%end if%>> 
                </td>
                <td width="150" height="3" align="center"><img src="11/8.gif"
    alt="8.gif (220 字节)" width="15" height="20"><img src="11/9.gif"
    alt="8.gif (220 字节)" width="15" height="20"><img src="11/8.gif"
    alt="8.gif (220 字节)" width="15" height="20"><img src="11/8.gif"
    alt="8.gif (220 字节)" width="15" height="20"><img src="11/2.gif"
    alt="8.gif (220 字节)" width="15" height="20"></td>
                <td width="88" height="3" align="center">&nbsp;</td>
                <td width="160" height="3" align="center">&nbsp;</td>
              </tr>
              <tr valign="top"> 
                <td colspan="4" align="center"> 
                  <%tmp = "http://" & request.servervariables("SERVER_NAME") & _            
               left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("modify.asp"))%>
                  以下方框内是你设置的计数器代码，请复制后加入网页代码里: 
                  <textarea name="textarea" cols="55" rows="3"><script src="../cc/<%=tmp%>counter.asp?name=<%=rs("name")%>&ys=<%=rs("ys")%>&hidden=<%=rs("hidden")%>"></script></textarea>
                </td>
              </tr>
            </table>
            <font size="2"> 
            <input type="submit" name="Submit" value="修　改" >
            　 
            <input type="reset" name="Submit22" value="取　消" >
            　 
            <input type=button value='返回首页' onClick="window.open('index.asp','_top')"  name="button2" >
            </font> 
          </center>
        </div>
        <div align="center"></div>
      </form></td>
  </tr>
</table>
<%
else
name=request("name")
password=left(request("password"),60)
email=left(request("email"),254)
qq=left(request("qq"),10)
pagename=left(request("pagename"),100)
pageurl=left(request("pageurl"),100)
ys=left(request("ys"),10)
total=left(request("total"),100)
xgdate=left(request("xgdate"),100)
hidden=left(request("hidden"),10)
if name="" then
        response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('请填入注册用户名');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if
if password="" then
        response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('请填入密码');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if

if email="" then
        response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('请输入E-mail!');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if
If IsValidEmail(email)=false then
	    response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('错误的email输入');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if

function IsValidEmail(email)'判断-------------------------
 dim names, name, i, c
 IsValidEmail = true
 names = Split(email, "@") '-----------判断有否@-------------------
 if UBound(names) <> 1 then '------------------------无----------------------
   IsValidEmail = false
   exit function
 end if
 for each name in names '分割的每段长度-----------------
   if Len(name) <= 0 then
     IsValidEmail = false
     exit function
   end if
   for i = 1 to Len(name)
     c = Lcase(Mid(name, i, 1)) '------------分割成每个字母或数字------------------
     if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
       IsValidEmail = false
       exit function
     end if
   next
   if Left(name, 1) = "." or Right(name, 1) = "." then '---------------------
      IsValidEmail = false
      exit function
   end if
 next
 if InStr(names(1), ".") <= 0 then
   IsValidEmail = false
   exit function
 end if
 i = Len(names(1)) - InStrRev(names(1), ".") '---------------------------
 if i <> 2 and i <> 3 then
   IsValidEmail = false
   exit function
 end if
 if InStr(email, "..") > 0 then
   IsValidEmail = false
 end if

end function '------------------------函数结束

if qq="" then
qq="-"
end if

if pagename="" then
        response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('请输入主页名称!');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if

if pageurl="" then
        response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('请输入主页地址!');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if

if total="" then
        response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('请输入计数器数值!');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if

if xgdate="" then
        response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('请输入计数器开始计数时间!');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if
name=server.htmlencode(name)
password=server.htmlencode(password)
email=server.htmlencode(email)
qq=server.htmlencode(qq)
pagename=server.htmlencode(pagename)
pageurl=server.htmlencode(pageurl)
ys=server.htmlencode(ys)
total=server.htmlencode(total)
xgdate=server.htmlencode(xgdate)
hidden=server.htmlencode(hidden)

Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from user where name='"&name&"'"
rs.open sql,conn,3,2
   rs("password")=password
   rs("email")=email
   rs("qq")=qq
   rs("pagename")=pagename
   rs("pageurl")=pageurl
   rs("ys")=ys
   rs("total")=total
   rs("date")=xgdate
   rs("hidden")=hidden
   rs.update
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('修改成功!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if%>
<!--#include file="bottom.asp"-->
</body>
</html>