author.asp

功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员

										</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">&nbsp;本项为不公开项</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>
&nbsp;请少于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">&nbsp;本项为不公开项 
											&lt;国际ICQ号&gt;(如果不填写请保持默认)</font><br>
											<input type="text" name="author_QQ" onfocus="this.select()" maxlength="15" size="12" value="0">
											<font color="blue">&nbsp;本项为不公开项 &lt;腾讯 
											QQ号&gt;(如果不填写请保持默认)</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">&nbsp;
											<font color="blue">&nbsp;本项为不公开项</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">&nbsp;
											<font color="blue">&nbsp;本项为不公开项</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">&nbsp;
											<font color="blue">&nbsp;本项为不公开项</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">&nbsp;
											<font color="blue">&nbsp;本项为不公开项</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">&nbsp;
											<font color="blue">&nbsp;本项为不公开项</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">&nbsp; 
											注册会员在控制台上显示的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">&nbsp; 
											注册会员在控制台上显示的昵称<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=request.cookies("CnEndWeb_User")("log_UserID")
UserName=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,"