newlogin.asp

一个不错的论坛原代码

<!--#include file="connections.asp"-->
<%'dxxo论坛首页登陆入口js调用
'生成地址
tmpt = "http://" & request.servervariables("SERVER_NAME") & _            
               left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("newlogin.asp"))
               dim p,tdc
               tdc="#333333"'文字色
               tdc1="#ffffff"'验证码背景色
 
               sqlconn1="select t_viewcheck from home"
               set rsconn1=conn.execute(sqlconn1)
               t_viewcheck=rsconn1("t_viewcheck")
               set rsconn1=nothing
randomize 
p = Int((8999 * Rnd) + 1000)  
session("cpbcode")=p
news="<style type=""text/css"">"
news =news&".tdc {  font-family: ""宋体""; font-size: 9pt; color: "&tdc&"}"
news=news&"</style>"
news =news&"<table width=150 cellpadding=0 cellspacing=0 ><tr><td  class=tdc>论坛登陆</td></tr>"
news=news&"<tr><td height=80 align=center valign=top class=tdc>"
news=news&"<form name=Login method=post action="&tmpt&"loginfo.asp>"
news=news&"用户名:<input maxLength=10 name=l_user size=12 ><br>"
news=news&"&nbsp;密 码:<input maxLength=16 name=l_password size=12 type=password><BR>"
news=news&"Cookies：<select size=""1"" name=""Cookies_Time"">"
news=news&"<option selected value=""1"">保存一天</option><option value=""0"">不要保存</option><option value=""365"">保存一年</option><option value=""30"">保存一月</option></select><BR>"
if t_viewcheck=0 then  
news=news&"验证码:<input type=""text"" name=""cpbcode"" size=""6"" class=""tdc"">:<B><span style=""background-color: "&tdc2&""">"&session("cpbcode")&"</span></b><br>"
  end if
  news=news&"&nbsp;状 态:<select size=""1"" name=""o_hidden"">"
news=news&"<option  value=""1"">隐身登陆</option><option value=""0"" selected>正常登陆</option></select><BR>"
news=news&"&nbsp;<input name=""Submit"" type=""submit"" value=""登 录"">&nbsp;</form></td></tr></table>"
Response.Write ("document.write('"&News&"');")
%>