www.gusucode.com > 盐城分类信息网asp源码程序 > admin/xinxi_hf.asp
<!--#include file=conn.asp--> <% dim id,username id=trim(request("id")) if not isnumeric(id) or id="" then response.write "<li>参数错误!" cl response.end end if if request.cookies("cnmai")("username")="" or request.cookies("cnmai")("domain")="" or request.cookies("cnmai")("id")="" then response.write "<br>" response.write "<li>你还没有登陆!" cl response.end end if if request("cnmai")="chk" then call cnmai() response.end end if %> <meta http-equiv="Content-Language" content="zh-cn"> <link href="inc_style.css" rel="stylesheet" type="text/css"> <title>发送邮件</title> <body topmargin="3" leftmargin="0"> <div align="center"> <center> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#CCCCCC" width="352" height="64"> <form action="?id=<%=id%>&cnmai=chk" method="POST"> <tr> <td width="80" height="25" style="border-bottom-style: none; border-bottom-width: medium"> <p align="center"><font color="#FF0000">回复内容:</font></td> <td width="273" height="25" style="border-bottom-style: none; border-bottom-width: medium"> <textarea rows="16" name="neirong" cols="37"></textarea></td> </tr> <tr> <td width="353" height="35" colspan="2" style="border-top-style: none; border-top-width: medium"> <p align="center"> <input type="submit" value="提交" name="B1"></td> </tr> </form> </table> </center> </div> <% sub cnmai() dim rs,sql,neirong if len(trim(request("neirong")))<2 then response.write "<li>恢复内容没有填写!" cl response.end end if set rs=server.createobject("adodb.recordset") sql = "select * from hf " rs.open sql,conn,1,3 rs.addnew rs("username")=request.cookies("cnmai")("username") rs("neirong")=trim(request("neirong")) rs("xxid")=id rs.update rs.close set rs=nothing Conn.Execute("Update xinxi Set hfcs=hfcs+1 where id="&cstr(id)) closedb response.write "<li>回复成功!" cl end sub %> <%sub cl()%> <body onLoad="setTimeout(window.close, 1000)"> <%end sub%>