gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/ly-write.asp
<!--#include file = admin_conn.asp --> <!--#include file = titleb.asp --> <head> <STYLE type="text/css"> <!-- a:link {text-decoration: none; font-family: AdobeSm; color: #000000 } a:visited {text-decoration: none; color: #000000 } A:hover {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline} body {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000} TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;table-layout:fixed;word-break:break-all} p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000} input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000} body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000} select {FONT-SIZE: 9PT;} option {FONT-SIZE: 9pt;} textarea {FONT-SIZE: 9pt;} --> </STYLE> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta http-equiv="Content-Language" content="zh-cn"> <title>欢迎访问留言薄</title> </head> <body bgcolor="#B2C5D3"> <div align="center"> <table border="0" cellpadding="0" cellspacing="0" width="760" id="table1"> <tr> <td><img border="0" src="images/lyTOPS.gif" width="760" height="89"></td> </tr> </table> </div> <div align="center"> <table border="0" cellpadding="5" cellspacing="0" width="760" id="table2" bgcolor="#FFFFFF"> <tr> <td> <p align="center"> <a href="ly-write.asp"> <img border="0" src="images/lywrite.gif" width="89" height="37"></a> <a href="ly.asp"> <img border="0" src="images/lyread.gif" width="89" height="37"></a></td> </tr> </table> </div> <% username=trim(chkhtm(Request("username"))) email=trim(chkhtm(Request("email"))) sex=trim(chkhtm(Request("sex"))) lb=trim(chkhtm(request("lb"))) title=trim(chkhtm(Request("title"))) content=trim(chkhtm(Request("content"))) bm=trim(chkhtm(request("bm"))) lyyzmm=trim(chkhtm(request("lyyzmm"))) lyyzm=trim(chkhtm(request("lyyzm"))) if lyyzmm<>"" and lyyzm<>"" then if int(lyyzmm)<>int(lyyzm) then Response.Write "<script>alert('验证码输入不正确');</script>" Response.Write "<META http-equiv='refresh' content='0;url=ly-write.asp'>" Response.end end if end if if username="" or email="" or sex="" or title="" or content="" or lb="" then %> <div align="center"> <table border="1" cellpadding="10" width="760" id="table3" style="border-collapse: collapse" bordercolor="#C0C0C0" bgcolor="#FFFFFF"> <!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript" Type="text/javascript"><!-- function FrontPage_Form1_Validator(theForm) { if (theForm.username.value == "") { alert("请在 你的姓名 域中输入值。"); theForm.username.focus(); return (false); } if (theForm.username.value.length < 2) { alert("在 你的姓名 域中,请至少输入 2 个字符。"); theForm.username.focus(); return (false); } if (theForm.username.value.length > 10) { alert("在 你的姓名 域中,请最多输入 10 个字符。"); theForm.username.focus(); return (false); } if (theForm.Email.value == "") { alert("请在 电子邮件 域中输入值。"); theForm.Email.focus(); return (false); } if (theForm.Email.value.length < 5) { alert("在 电子邮件 域中,请至少输入 5 个字符。"); theForm.Email.focus(); return (false); } if (theForm.Email.value.length > 50) { alert("在 电子邮件 域中,请最多输入 50 个字符。"); theForm.Email.focus(); return (false); } if (theForm.sex.selectedIndex < 0) { alert("请选择“性别”选项中的一项。"); theForm.sex.focus(); return (false); } if (theForm.sex.selectedIndex == 0) { alert("第一个“性别”选项无效。 请选择其他选项中的一项。"); theForm.sex.focus(); return (false); } if (theForm.lb.selectedIndex < 0) { alert("请选择“留言类型”选项中的一项。"); theForm.lb.focus(); return (false); } if (theForm.lb.selectedIndex == 0) { alert("第一个“留言类型”选项无效。 请选择其他选项中的一项。"); theForm.lb.focus(); return (false); } if (theForm.lyyzm.value == "") { alert("请在 验证码 域中输入值。"); theForm.lyyzm.focus(); return (false); } if (theForm.lyyzm.value.length < 5) { alert("在 验证码 域中,请至少输入 5 个字符。"); theForm.lyyzm.focus(); return (false); } if (theForm.lyyzm.value.length > 5) { alert("在 验证码 域中,请最多输入 5 个字符。"); theForm.lyyzm.focus(); return (false); } var checkOK = "0123456789-"; var checkStr = theForm.lyyzm.value; var allValid = true; var validGroups = true; var decPoints = 0; var allNum = ""; for (i = 0; i < checkStr.length; i++) { ch = checkStr.charAt(i); for (j = 0; j < checkOK.length; j++) if (ch == checkOK.charAt(j)) break; if (j == checkOK.length) { allValid = false; break; } allNum += ch; } if (!allValid) { alert("在 验证码 域中,只能输入 数字 字符。"); theForm.lyyzm.focus(); return (false); } if (theForm.title.value == "") { alert("请在 留言标题 域中输入值。"); theForm.title.focus(); return (false); } if (theForm.title.value.length < 2) { alert("在 留言标题 域中,请至少输入 2 个字符。"); theForm.title.focus(); return (false); } if (theForm.title.value.length > 50) { alert("在 留言标题 域中,请最多输入 50 个字符。"); theForm.title.focus(); return (false); } if (theForm.content.value == "") { alert("请在 留言内容 域中输入值。"); theForm.content.focus(); return (false); } if (theForm.content.value.length < 1) { alert("在 留言内容 域中,请至少输入 1 个字符。"); theForm.content.focus(); return (false); } return (true); } //--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="ly-write.asp" name="FrontPage_Form1" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript"> <tr> <td width="722" align="center"> <div align="center"> <table border="1" cellpadding="5" width="708" id="table5" style="border-collapse: collapse" bordercolor="#C0C0C0"> <tr> <td width="128" align="center">你的姓名</td> <td width="557"> <!--webbot bot="Validation" s-display-name="你的姓名" b-value-required="TRUE" i-minimum-length="2" i-maximum-length="10" --><input type="text" name="username" size="52" maxlength="10"></td> </tr> <tr> <td width="128" align="center">电子邮件</td> <td width="557"> <!--webbot bot="Validation" s-display-name="电子邮件" b-value-required="TRUE" i-minimum-length="5" i-maximum-length="50" --><input type="text" name="Email" size="52" maxlength="50"></td> </tr> <tr> <td width="128" align="center">性 别</td> <td width="557"> <!--webbot bot="Validation" s-display-name="性别" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="sex"> <option>请选择...</option> <option>男</option> <option>女</option> </select></td> </tr> <tr> <td width="128" align="center">留言类型</td> <td width="557"> <!--webbot bot="Validation" s-display-name="留言类型" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="lb"> <option>请选择...</option> <% set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "select * from [lylb] order by id asc",conn,1,1 while not rs.eof %> <option value='<%=rs("id")%>'><%=rs("lb")%></option> <% rs.movenext wend rs.close:set rs=nothing %> </select></td> </tr> <tr> <td width="128" align="center">验证码 <% Randomize an="" an= int((99999-22222+1) * RND +22222) %> <textarea style='display:none' cols=1 name='lyyzmm'><%=an%></textarea> </td> <td width="557"> <!--webbot bot="Validation" s-display-name="验证码" s-data-type="Integer" s-number-separators="x" b-value-required="TRUE" i-minimum-length="5" i-maximum-length="5" --><input type="text" name="lyyzm" size="15" maxlength="5"> <% Response.Write an %> </td> </tr> <tr> <td width="128" align="center">留言标题</td> <td width="557"> <!--webbot bot="Validation" s-display-name="留言标题" b-value-required="TRUE" i-minimum-length="2" i-maximum-length="50" --><input type="text" name="title" size="52" maxlength="50"></td> </tr> <tr> <td width="128" align="center">留言内容</td> <td width="557"> <!--webbot bot="Validation" s-display-name="留言内容" b-value-required="TRUE" i-minimum-length="1" --><textarea rows="9" name="content" cols="82"></textarea></td> </tr> <tr> <td width="128" align="center">是否保密</td> <td width="557"> <input type="radio" value="1" name="bm">保密 <input type="radio" value="0" checked name="bm">不保密 <font color="#999999">(仅工作人员可以查看)</font></td> </tr> </table> </div> <p align="center"> <input type=hidden name=sh value=<%=config("lysh")%>> <input type="submit" value="提交" name="B1"> <input type="reset" value="重置" name="B2"></p> </td> </tr></form> </table> </div> <% else sh=chkhtm(trim(request("sh"))) userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") Randomize an= int((10-1+1) * RND +1) if sex="男" then tx="images/lylan-"&an&".gif" else tx="images/lynv-"&an&".gif" end if addtime=date() content=replace(content,chr(13),"<BR>") conn.Execute "insert into [ly] ([adduser],[email],[sex],[tx],[title],[content],[ip],[addtime],[bm],[lb],[sh]) values('"&username&"','"&email&"','"&sex&"','"&tx&"','"&title&"','"&content&"','"&userip&"','"&addtime&"','"&bm&"','"&lb&"',"&sh&")" conn.close:set conn=nothing if sh=1 then er=1 end if Response.Redirect "ly.asp?er="&sh end if %> <div align="center"> <table border="1" cellpadding="5" width="760" id="table4" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#C0C0C0"> <tr> <td> </td> </tr> </table> </div> <div align="center"> <table border="0" cellpadding="0" cellspacing="0" width="760" height="37" id="table5"> <tr> <td background="images/lydown.gif"> </td> </tr> </table> </div> <% 'rs.close:set rs=nothing conn.close:set conn=nothing %>