authorregpost.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<!--#include file="../inc/md5.asp"--><%
if Webauthor=0 then
dim UserID,UserName
UserID=session("UserID")
UserName=session("UserName")
If UserName="" or UserID="" or IsNull(WordID) Then
	Response.Write ("<script>alert(' 操作错误 \n\n 可能您还没有登陆或者登陆超时 \n\n 如果您没有成为会员请先进行会员注册 \n\n 如果您已经是注册会员请重新登陆 ');location.href='userlog_login.asp';</script>")
	Response.End
End If
set rs=server.createobject("adodb.recordset")
sql="select * from [User] where ID="&UserID&""
rs.open sql,conn,1,3
if rs.eof and rs.bof then
	Response.Write ("<script>alert('   操作错误!\n\n 用户不存在。');history.back();</script>")
	Response.end
End If
dim author_UserName,author_Password1,author_Password2,author_name,author_sex,author_Email,author_face,author_resume,author_ICQ,author_QQ,author_1name,author_address,author_zhengjian,author_tel,author_zip,author_writing
author_UserName=trim(request("author_UserName"))
author_Password1=trim(request("author_Password1"))
author_Password2=trim(request("author_Password2"))
author_Email=trim(Request.Form("author_Email"))
author_name=trim(Request.Form("author_name"))
author_face=trim(Request.Form("author_face"))
author_resume=trim(Request.Form("author_resume"))
author_ICQ=trim(Request.Form("author_ICQ"))
author_1name=trim(Request.Form("author_1name"))
author_address=trim(Request.Form("author_address"))
author_QQ=trim(Request.Form("author_QQ"))
author_tel=trim(Request.Form("author_tel"))
author_zhengjian=trim(Request.Form("author_zhengjian"))
author_zip=trim(Request.Form("author_zip"))
author_writing=trim(Request.Form("author_writing"))
author_sex=trim(Request("author_sex"))

'if author_UserName="" or strLength(author_UserName)>16 or strLength(author_UserName)<6 then
'	founderr=1
'	errmsg=errmsg & "<br><li>请输入您的登陆名(不能大于16小于6)！</li>"
'else
  	if Instr(author_UserName,"=")>0 or Instr(author_UserName,"%")>0 or Instr(author_UserName,chr(32))>0 or Instr(author_UserName,"?")>0 or Instr(author_UserName,"&")>0 or Instr(author_UserName,";")>0 or Instr(author_UserName,",")>0 or Instr(author_UserName,"'")>0 or Instr(author_UserName,",")>0 or Instr(author_UserName,chr(34))>0 or Instr(author_UserName,chr(9))>0 or Instr(author_UserName,"