showmsg.asp

BBS论坛的开发和设计

<%
function Showmsg(the)
response.write "<br><br>"&BBS_Skin(1)
%> 
<table height="73" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  <tr>
    <td class="table-title"><img src="<%=BBS_Skin(3)%>JBB_bullet.gif"> 
      系统信息 </td>
  </tr>
  <tr> 
    <td height="60" class="table-dark"> 
      <div align="center"><%=the%></div></td>
  </tr>
</table>
<%
response.Write(BBS_Skin(2)&"<br><br><br><br>")
End function
'=======================================
function loginform(the)
%>
<br>
<br><script language="javascript">
<!--
function isok(theform)
{

if (theform.username.value=="")

  {
    alert("请输入用户名！");
    theform.username.focus();
    return (false);
  }
  
if (theform.userpass.value=="")

  {
    alert("请输入密码！");
    theform.userpass.focus();
    return (false);
  }

return (true);
}
-->
</script>
<form name="form1" method="post" action="login.asp?action=check"  onsubmit="return isok(this)">
  <table border="0" align="center" cellpadding="4" cellspacing="1" class="table">
    <tr class="table-title"> 
      <td colspan="2"><img src="<%=BBS_Skin(3)%>JBB_bullet.gif"> 
        <%=the%> </td>
    </tr>
    <tr class="table-dark"> 
      <td width="21%" height="28" class="table-dark"><div align="right">请输入您的用户名</div></td>
      <td width="79%"> <INPUT name=username type=text> <%
		SCRIPT_STRING = trim(request.ServerVariables("QUERY_STRING"))
		if SCRIPT_STRING <> "" then SCRIPT_STRING = "?"&SCRIPT_STRING End if
		%>
        　<a href="register.asp">注册会员</a> <input name="comurl" type="hidden" id="comurl" value="<%= request.ServerVariables("SCRIPT_NAME")+SCRIPT_STRING %>"> 
      </td>
    </tr>
    <tr class="table-dark"> 
      <td height="28" class="table-dark"><div align="right">请输入您的密码</div></td>
      <td> <INPUT name=userpass type=password id="userpass" maxlength="16">
        　<a href=lostpass.asp>忘记密码</a></td>
    </tr>
    <tr class="table-dark"> 
      <td height="28" class="table-dark"><div align="right">Cookie 
          有效期:</div></td>
      <td><input type=radio name=CookieDate value=1>
        保存一天&nbsp; <input type=radio name=CookieDate value=30>
        保存一月&nbsp; <input type=radio name=CookieDate value=365>
        保存一年&nbsp; <input type=radio name=CookieDate value=0 checked>
        不保存，关闭浏览器就失效 </td>
    </tr>
    <tr class="table-dark"> 
      <td height="28" class="table-dark"><div align="right">选项:</div></td>
      <td><input name="userhidden" type="radio" value="0" checked>
        正常登录 
        <input type="radio" name="userhidden" value="1">
        隐身登录</td>
    </tr>
  </table>
  <center>
    <br>
    <input type="submit" name="Submit" value="登录"></center>
</form>
<br>
<br>
<%
'response.write BBS_Skin(3)&"jjj"
End function

Function getSetStr(FormName)
	CLStr=Chr(13) & Chr(10)
	setStr = setStr &"<script language=""javascript"">"&CLStr
	setStr = setStr &"	function AllSet(theForm)"&CLStr
	setStr = setStr &"	{"&CLStr
	setStr = setStr &"	for(i=0;i<document."& FormName &".length;i++)"&CLStr
	setStr = setStr &"	 if(document."& FormName &".elements[i].type==""checkbox"")"&CLStr
	setStr = setStr &"	document."& FormName &".elements[i].checked=1}"&CLStr	
	setStr = setStr &"	function Reverse()"&CLStr
	setStr = setStr &"	{"&CLStr
	setStr = setStr &"	for(i=0;i<document."& FormName &".length;i++)"&CLStr
	setStr = setStr &"	 if(document."& FormName &".elements[i].type==""checkbox"")"&CLStr
	setStr = setStr &"	if(document."& FormName &".elements[i].checked==1)"&CLStr
	setStr = setStr &"	document."& FormName &".elements[i].checked=0"&CLStr
	setStr = setStr &"	else"&CLStr
	setStr = setStr &"	document."& FormName &".elements[i].checked=1}"&CLStr
	setStr = setStr &"	function ReSet()"&CLStr
	setStr = setStr &"	{"&CLStr
	setStr = setStr &"	for(i=0;i<document."& FormName &".length;i++)"&CLStr
	setStr = setStr &"	 if(document."& FormName &".elements[i].type==""checkbox"")"&CLStr
	setStr = setStr &"	if(document."& FormName &".elements[i].checked==1)"&CLStr
	setStr = setStr &"	document."& FormName &".elements[i].checked=0}"&CLStr
	setStr = setStr &"</script>"&CLStr
	setStr = setStr &"<input name=""button"" type=button onclick=""AllSet()"" value=""全选"">"&CLStr
    setStr = setStr &"<input name=""button"" type=button onclick=""Reverse()"" value=""反选"">"&CLStr
    setStr = setStr &"<input name=""button"" type=button onclick=""ReSet()"" value=""不选"">"&CLStr
    setStr = setStr &"<input name=""Submit"" type=""submit"" id=""Submit"" value=""删除所选"">"&CLStr
	getSetStr = setStr
End Function
%>