| 程序名称：delrec.asp 程序功能：删除贴子（剪枝） <!-- #include file="lybcon.inc" --> <% flag=request("flag") keyid=request("keyid") pageno=request("pageno") passWord=request.form("password") if flag="1" then if password="你的管理密码" then set guestconn=Server.CreateObject("ADODB.connection") guestconn.Open lybstr set cm = Server.CreateObject("ADODB.Command") Set cm.ActiveConnection = guestconn cm.CommandText = "lybdel" cm.CommandType = 4 set p = cm.Parameters p.Append cm.CreateParameter("@keyid",3,1,4) cm("@keyid")=keyid cm.execute guestconn.close set guestconn=nothing response.redirect "index.asp?pageno="&pageno end if end if %> <html> <head><title>软件使用留言薄管理</title> <style TYPE="text/CSS"> <!-- a { text-decoration: none} body {line-height:18px;font-size:9pt;font-family:宋体} a:hover {color:#FF0000;text-decoration:none} .submit {line-height:9pt;font-size:9pt;font-family:宋体} .submit1 {line-height:8pt;font-size:8pt;font-family:宋体} .selectform {font-family: 宋体; font-size: 9pt;background-color:ffE4E4} td {font-family: 宋体; font-size: 9pt;background-color:ECF7FF} .td1 {font-family: 宋体; font-size: 9pt;background-color:A2C8F2} .td2 {font-family: 宋体; font-size: 9pt;background-color:E9EDE0} .small1 {font-family: 宋体; font-size: 9pt;background-color:ffffff;line-height:9pt} --> </style> </head> <body topmargin=16 background='topbg.gif'> <br><br><br> <form name='manage' action='delrec.asp' method='post'> <input type=hidden name='flag' value='1'> <input type=hidden name='keyid' value='<% =keyid %>'> <input type=hidden name='pageno' value='<% =pageno %>'> <table width=80% align=center> <tr> <td align=right>请输入管理密码：</td> <td align=left><input type='password' name='password' size=20 class='submit'></td> <td align=center><input type='submit' value='删除该留言' class='submit'></td> </tr> </table> </form> 注意：联系我时，请一定说明是从【S】看到的信息，谢谢。 |
 联系电话： 联系 QQ： 打电话给我、或者加QQ好友时，请一定说明来自（三亚上门维修电脑）谢谢您！ 三亚上门维修电脑 |