Sort Program Name: delrec.asp
Program function: Delete posts (pruning)
<!--#include file= "Lybcon.inc"-->
<%
Flag=request ("flag")
Keyid=request ("keyID")
Pageno=request ("PageNo")
Password=request.form ("password")
If flag= "1" Then
If password= "your admin 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
%>
<style type= "Text/css" >
<!--
a {Text-decoration:none}
Body {line-height:18px;font-size:9pt;font-family: XXFarEastFont-Arial}
a:hover {color: #FF0000; Text-decoration:none}
. Submit {line-height:9pt;font-size:9pt;font-family: Song body}
. submit1 {line-height:8pt;font-size:8pt;font-family: Song body}
. selectform {font-family: Song body; font-size:9pt;background-color:ffe4e4}
TD {Font-family: Song body; font-size:9pt;background-color:ecf7ff}
. TD1 {font-family: Song body; Font-size:9pt;background-color:a2c8f2}
. td2 {font-family: Song body; font-size:9pt;background-color:e9ede0}
. small1 {font-family: Song body; font-size:9pt;background-color:ffffff;line-height:9pt}
-->
</style>
<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> Please enter the admin password:</td>
<TD align=left><input type= ' password ' name= ' password ' size=20 class= ' Submit ' ></td>
<TD align=center><input type= ' submit ' value= ' delete the message ' class= ' Submit ' ></td>
</tr>
</table>
</form>
Software Use homepage http://swuse.yeah.net authoring
