author.asp

小说站源代码文件

<!--#include file="../inc/md5.asp"--><%
Select Case request.querystring("info")
	Case "reg"
		Call reg()
	Case "regtrue"
		Call regtrue()
	Case "regpost"
		Call regpost()
	Case "listall"
		Call listall()
end select 
Sub reg()%>
<table cellspacing="0" cellpadding="0" width="100%" border="0" id="table4">
        <tr> 
          <td valign="top"><table cellspacing='0' cellpadding='0' width='100%' border='0' align='center'><tr><td colspan='2' align='center'><!-- #include file='../Inc/Authorregtext.txt' --></td></tr><tr><td colspan='2' align='center'><input name=Submit type=button onclick="window.location.href='Author.Asp?info=regtrue'" value="我确认已经同意和了解驻站作家须知，并开始申请驻站作家" style='width: 390; height: 20'></td></tr></table></td>
        </tr>
      </table>
<%end sub

Sub regtrue()
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='user_log.asp?info=in';</script>")
	Response.End
End If
set rs=server.createobject("adodb.recordset")
sql="select * from Userinfo where ID="&UserID&""
rs.open sql,conn,1,1
if rs.eof and rs.bof then
	Response.Write ("<script>alert('   操作错误!\n\n 用户不存在。');history.back();</script>")
	Response.end
End If
if rs("LockUser")=1 then
	Response.Write ("<script>alert('   操作错误!\n\n 用户被锁定。');history.back();</script>")
	Response.end
End If
rs.close
set rs=nothing
%><table border="0" cellpadding="0" cellspacing="1" valign="top" align="center">
							<tr>
								<td width="100%" align="right" height="30" bgcolor="#588fc7" class="head">
								<b><font color="#ffffff">[ 开始申请成为 驻站作家 ]</font></b>&nbsp;
								</td>
							</tr>
							<tr>
								<td bgcolor="#588fc7" height="26" class="head">
								<font color="#FFFFFF"><b>&nbsp;&nbsp;&nbsp; 申请说明</b></font></td>
							</tr>
							<tr valign="top" bgcolor="#dfefff">
								<td height="25">　1、驻站作家登陆名，与普通注册用户的用户名可相同可不相同，也可与作品署名相同<br>
								</td>
							</tr>
							<tr valign="top" bgcolor="#ffffff">
								<td height="25">　2、注意驻站作家登陆名和密码不能使用单引号、双引号、空格。<font color="red">下表凡“*”号项请认真填写，均为必填项</font><br>
								</td>
							</tr>
							<tr valign="top" bgcolor="#dfefff">
								<td height="25">　3、驻站作家登陆名与普通注册用户的用户名并不相通。要使用本站其他功能，请点击顶部的“<a href="user.asp?info=reg" target="_blank"><font color="red">用户注册</font></a>”另行注册<br>
								</td>
							</tr>
							<tr valign="top" bgcolor="#ffffff">
								<td height="25">　4：资料不全或者资料乱填写者一律不予通过。 </td>
							</tr>
							<tr>
								<td width="100%" align="left" bgcolor="#588fc7" class="head">
								<div align="left" valign="top" style="padding-top:10;">
									<b>&nbsp; <font color="#FFFFFF">[ 驻站作家申请表 ]</font></b></div>
								</td>
							</tr>
							<tr>
								<td width="100%" align="left" style="line-height:180%">
								<table border="0" cellspacing="0" cellpadding="0" width="100%" valign="top" style="border-top: #999966 1px solid;">
									<script language="JavaScript">	
	function checkblank(frm)
	{			
		var items;
		var item;
		var subutton;
		var errmsg = false;
		
		items = frm.elements;

		for (var i=items.length;i>0;i--)
		{
			item = items[i-1];
			if (item.tagName=="INPUT" && item.type=="submit")
			{				
				subutton = item;
				subutton.disabled = true;
				break;
			}
		}

		for (var i=0;i<items.length;i++)
		{
			item = items[i];			
			if ((item.tagName=="INPUT" && item.type=="text") || item.tagName=="TEXTAREA" )
			{
				if (!item.value)
				{errmsg = true;break;}
			}
		}
		
		if (frm.author_writing.value.length < 3000 || frm.author_writing.value.length > 5000)
		{
			alert("您的作品字数不符规格，需要3000－5000字，您输入了"+frm.author_writing.value.length+"字");subutton.disabled = false;
			return false;
		}		
		
		if (errmsg)
		{
			alert("请填写完整！");subutton.disabled = false;
		}
		else
		{
			frm.submit();
		}

		return false;
	}
	
	function checkuser()
    {	  
	  var user = document.author_info.author_UserName;
	  var author = document.author_info.author_name;
      if (user.value && author.value) {
	  	window.open("checkauthor.asp?a="+user.value+"&b="+author.value,"_blank","top=1000,left=1000,height=1,width=1,status=no,toolbar=no,menubar=no,location=no")
	  } 
	  else {
	  	alert("请先填写好登录名和笔名！");
		user.focus();
	  }    
    }
    
    function openface(){
	var newwin=window.open("author_face.asp","","top=0,left=0,height=530,width=790,scrollbars=yes,status=no")

	}


</script>
									<form action="author.asp?info=regpost" method="post" onsubmit="return checkblank(this);" name="author_info">
										<tr bgcolor="#dfefff">
											<td width="15%" align="right" valign="top" height="25">
											驻站作家登陆名：</td>
											<td align="left"><font color="red">*</font>
											<input type="text" name="author_UserName" maxlength="16" size="20">&nbsp; 
											6-16字符，英文、数字，不可中文 
											<input type="button" name="check" value="检验作者信息" onclick="checkuser();"></td>
										</tr>
										<tr>
											<td align="right" valign="top" height="25">登录密码：</td>
											<td align="left"><font color="red">*</font>
											<input type="password" name="author_Password1" maxlength="18">&nbsp; 
											6-18个英文、数字</td>
										</tr>
										<tr bgcolor="#dfefff">
											<td align="right" valign="top" height="25">重复输入密码：</td>
											<td align="left"><font color="red">*</font>
											<input type="password" name="author_Password2" maxlength="18">&nbsp; 
											为防止错误，重复输入密码</td>
										</tr>
										<tr>
											<td align="right" valign="top" height="25">作者笔名：</td>
											<td align="left"><font color="red">*</font>
											<input type="text" name="author_name" maxlength="8" size="20" value="<%=UserName%>">&nbsp; 
											此署名为您的笔名，请慎重命名，可用中文、英文或数字</td>