📄 author.asp
字号:
</tr>
<tr bgcolor="#dfefff">
<td align="right" valign="top" height="25">性别：</td>
<td align="left"><font color="red">*</font>
<select name="author_sex">
<option value="男">男</option>
<option value="女">女</option>
</select></td>
</tr>
<tr>
<td align="right" valign="top" height="25">EMAIL：</td>
<td align="left"><font color="red">*</font>
<input type="text" name="author_Email" maxlength="100" size="50">
<font color="blue"> 本项为不公开项</font></td>
</tr>
<tr bgcolor="#dfefff">
<td align="right" valign="top" height="25">我的头像：</td>
<td align="left" valign="top">
<font color="red">*</font>
<img id="myPhoto" src="authorface/10001.gif">
<select name="author_face" onchange="javascript:myPhoto.src='authorface/'+(this.value)+'.gif';">
<% dim i
for i = 10001 to 10460%>
<option value="<%=i%>">face<%=i-10000%>
</option>
<%next%></select>
<a href="javascript:openface()">查看所有头像</a></td>
</tr>
<tr>
<td align="right" valign="top" height="25">个人简介：</td>
<td align="left"><font color="red">*</font>
<textarea name="author_resume" rows="7" cols="80"></textarea>
<br>
请少于800字并不要使用HTML代码</td>
</tr>
<tr bgcolor="#dfefff">
<td align="right" valign="top" height="25">ICQ号码：<br>
OICQ号码：</td>
<td align="left" valign="top">
<input type="text" name="author_ICQ" onfocus="this.select()" maxlength="15" size="12" value="0">
<font color="blue"> 本项为不公开项
<国际ICQ号>(如果不填写请保持默认)</font><br>
<input type="text" name="author_QQ" onfocus="this.select()" maxlength="15" size="12" value="0">
<font color="blue"> 本项为不公开项 <腾讯
QQ号>(如果不填写请保持默认)</font></td>
</tr>
<tr>
<td align="left" colspan="3" valign="top" height="25">
--------------<br>
<font color="red">为方便本站替广大作者寻找出版途径，并且能够及时通知，<br>
请作者务必认真填报下列真实情况，以下项目不会公开。</font><br>
---------------</td>
</tr>
<tr bgcolor="#dfefff">
<td align="right" valign="top" height="25">真实姓名：</td>
<td align="left"><font color="red">*</font>
<input type="text" name="author_truename">
<font color="blue"> 本项为不公开项</font><br>
</td>
</tr>
<tr>
<td align="right" valign="top" height="25">家庭地址：</td>
<td align="left"><font color="red">*</font>
<input type="text" name="author_address">
<font color="blue"> 本项为不公开项</font><br>
</td>
</tr>
<tr bgcolor="#dfefff">
<td align="right" valign="top" height="25">邮政编码：</td>
<td align="left"><font color="red">*</font>
<input type="text" name="author_zip">
<font color="blue"> 本项为不公开项</font><br>
</td>
</tr>
<tr>
<td align="right" valign="top" height="25">身份证号：</td>
<td align="left"><font color="red">*</font>
<input type="text" name="author_zhengjian">
<font color="blue"> 本项为不公开项</font><br>
</td>
</tr>
<tr bgcolor="#dfefff">
<td align="right" valign="top" height="25">联系电话：</td>
<td align="left"><font color="red">*</font>
<input type="text" name="author_tel">
<font color="blue"> 本项为不公开项</font><br>
</td>
</tr>
<tr>
<td align="right" valign="top" height="25">本站用户
ID：<br>
本站用户昵称：</td>
<td align="left"><font color="red">*</font>
<input type="text" name="UserID" disabled value="<%=UserID%>" size="20">
注册会员在控制台上显示的ID号<img border="0" src="images/user_id.gif" width="170" height="25"><br>
<font color="red">*</font>
<input type="text" name="NAME" disabled value="<%=UserName%>" size="20">
注册会员在控制台上显示的昵称<img border="0" src="images/user_name.gif" width="170" height="25"><br>
请检查上述ID号和昵称是否和你注册的会员ID号和昵称相同，如果有任何一项不同，请终止操作并向管理员反映<br><a href="User.asp?info=reg" target="_blank">非本站注册用户请先注册</a></td>
</tr>
<tr bgcolor="#dfefff">
<td align="right" valign="top" height="25">
<font color="#FF0000">申请原由和作品内容（ 请在<%=authorregwritmix%>-<%=authorregwritmax%>字内，并不要使用HTML代码）</font>：</td>
<td align="left" valign="top">
<font color="red">*</font>
<textarea name="author_writing" rows="13" cols="80"></textarea>
<br>
</td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0" width="100%" valign="top" style="border-top: #999966 1px solid;">
<tr>
<td align="center"><br>
</td>
</tr>
<tr>
<td align="center" height="30" bgcolor="#588fc7" class="head">
<input type="submit" value="提交资料，申请成为驻站作家">
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<%else
Response.Write ("<script>alert(' 操作错误!\n\n 本站暂时禁止作家注册，详情请查看公告。');history.back();</script>")
Response.end
End If
end sub
Sub regpost()
if Webauthor=0 then
dim UserID,UserName
UserID=CheckSql(request.cookies("CnEndWeb_User")("log_UserID"))
UserName=CheckSql(request.cookies("CnEndWeb_User")("log_UserName"))
If UserName="" or UserID="" or IsNull(UserID) 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 Userinfo 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_truename,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_truename=trim(Request.Form("author_truename"))
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_sex=trim(Request("author_sex"))
author_writing=Request.Form("author_writing")
if author_UserName="" or strLength(author_UserName)>16 or strLength(author_UserName)<6 then
founderr=true
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,"⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -