messmc.asp

本网上拍卖系统选用ASP + SQL Server进行开发, 是一个基于Brower/ Server (浏览器/ 服务器) 并采用C2C (Customer to Customer 即个人——个人)运

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
SqlDatabaseName = "paimai"            			      '数据库名
SqlUsername = "sa"                                    '用户名
SqlPassword = " "                                      '用户密码
Dim Conn,ConnStr
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider = Sqloledb; Persist Security Info=false; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & ";"
Conn.Open ConnStr

if request("action")="del" then	'判断是否执行数据删除
	conn.execute("delete from [infor]  where inforid="&request("inforid")&"")	'根据取得的商品 ID 进行删除
	response.Write("<script>alert('删除成功！');window.location.href='messm.asp';</script>")
end if


%>
<table border="0" width="675" height="480" id="table1">
	<tr>
		<td bgcolor="#C0C0C0" align="center" valign="top"> 
      <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="799AE1" id="table2">
        <tr height="20" bgcolor="#FFFFFF" align="center"> 
          <td width="14%"><font color="#FF0000" size="1" face="幼圆">发言者</font></td>
          <td width="75%"><font color="#FF0000" size="1" face="幼圆">内容</font></td>
          
          <td width="8%"><font color="#FF0000" size="1" face="幼圆">删除</font></td>
          
        </tr>
<%
SqlDatabaseName = "paimai"            			      '数据库名
SqlUsername = "sa"                                    '用户名
SqlPassword = " "                                      '用户密码
Dim Con,ConStr
Set Con = Server.CreateObject("ADODB.Connection")
ConStr = "Provider = Sqloledb; Persist Security Info=false; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & ";"
Con.Open ConStr
     
	sql="select * from [infor] "
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,con,1,1	'以写入方式打开
if rs.eof and rs.bof then
	Response.Write "<p align='center' class='contents'> 对不起，还没有用户发布信息！</p>"
else
	rs.pagesize=10
	'SafeRequest(request("page"))
	page=clng(request("page"))
	if page<1 then page=1
	if page>rs.pagecount then page=rs.pagecount
	show rs,page
	sub show(rs,page)
	rs.absolutepage=page
	for i=1 to rs.pagesize
		
%>
        <tr height="20" bgcolor="#FFFFFF" align="center">
          <td><a href="owner6.asp?usersn=<%=rs("usersn")%>">
			<font size="1" color="#FF0000" face="幼圆"><%=rs("usersn")%></font></td>
          <td><font size="1" color="#FF0000" face="幼圆"><%=rs("userInfor")%></font></td>
          
          <td><a href="messm.asp?action=del&inforid=<%=rs("inforid")%>">
			<font size="1" color="#FF0000" face="幼圆">删除</font></a></td>
          
          <td width="1%">　</td>
        </tr>
<%
	rs.movenext
	if rs.eof then exit for
	next
	end sub
%>
        <tr height="20" bgcolor="#FFFFFF" align="center">
		<form name="form" action="?" method="get">
          <td colspan="4">
<font size="1" color="#FF0000" face="幼圆">
<%	
	if page<>1 then
		response.Write("&nbsp;&nbsp;<a href="&path&"?page=1>第一页</a>")
		response.Write("&nbsp;&nbsp;<a href="&path&"?page="&(page-1)&" >上一页</a>")
	end if 
	response.Write("&nbsp;&nbsp;当前 <font color='#FF0000'>"&page&"</font> 页")
	response.Write("&nbsp;&nbsp;共<font color='#FF0000'>"&rs.recordcount&"</font>条/<font color='#FF0000'>"&rs.pagecount&"</font> 页")
	if page<>rs.pagecount then
		response.Write("&nbsp;&nbsp;<a href="&path&"?page="&(page+1)&">下一页</a>")
		response.Write("&nbsp;&nbsp;<a href="&path&"?page="&rs.pagecount&">最末页</a>")
	end if
	'response.Write("&nbsp;&nbsp;跳转到<input type='text' size='2' name='page'>页<input type='submit' value='GO'>")
end if
rs.close
set rs=nothing
%>
   		  </font>
   		  </td>
		  </form>
        </tr>
      </table>
		</td>
		 
	</tr>
	 
</table>