📄 down_show.asp

📁 本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="top.asp"-->
<%
if Request("method") = 1 then
	
end if
Select case Request("method")
	Case 1'留言回复
		Call relist()
	Case 2'信息状态
		Call setjx()
	Case 3'信息屏蔽
		Call Setsxs()
	Case 4'本类固顶
		Call Settop1()
	Case 5'加总固顶
		Call Settop()
End Select
'=================================================
'过程名：relist
'作  用：留言回复1
'参  数：无
'=================================================
sub relist()
	articleid = Request.form("articleid")
	face = Request.form("face")
	content = Qcdn.checkStr(Trim(Request.form("content")))
	username = Qcdn.checkStr(Trim(Request.form("username")))
    id = Qcdn.checkStr(Trim(Request.form("id")))
	ip = Request.ServerVariables("REMOTE_ADDR")
		sql = "Insert into 2s_relist(articleid,username,content,faceid,intime,ip)values("& articleid &",'"& username &"','"& content &"',"& face &",Now(),'"& ip &"')"
		conn.execute(sql)
		Response.write "<script>alert(""评论发布成功"");location.href=""2s_show.asp?unid="& articleid &"&id="& id &""";</script>"
End Sub

'=================================================
'过程名：Setjx
'作  用：信息屏蔽2
'参  数：无
'=================================================
sub Setjx()
if Request.querystring("Unid") = "" then
	Errmsg = "<li>发现异常错误。<li>传递的文章编号为空。"
	call Qcdn.Err_List(errmsg,3)
	Response.End()
else
	Unid = Request.querystring("Unid")
end if
If Not(isNumeric(Unid)) Then 
Response.Write "非法地址~" 
Response.End
End If
id = Qcdn.checkStr(Trim(Request.querystring("id")))
isgood=request.querystring("isgood")
if isgood<>1 and isgood<>0 then
	Errmsg = "<li>发现异常错误。<li>非法地址。"
	call Qcdn.Err_List(errmsg,3)
	Response.End()
End If
 if isgood=0 then
 isgood= 1
 goods="交易完成"
 else
 isgood= 0
 goods="交易未完成"
 end if
 
conn.execute("Update 2s_list set jx= "& isgood &"  where s_id = ("& Unid &")")
if goods="交易完成" then
Response.write "<script>alert(""交易完成"");location.href=""show.asp?unid="& Unid &"&id="& id &""";</script>"
else
Response.write "<script>alert(""交易未完成"");location.href=""show.asp?unid="& Unid &"&id="& id &""";</script>"
end if
End Sub

'=================================================
'过程名：Setsxs
'作  用：信息屏蔽3
'参  数：无
'=================================================
sub Setsxs()
if Session("flag") = "1" then
if Request("Unid") = "" then
	Errmsg = "<li>发现异常错误。<li>传递的文章编号为空。"
	call Qcdn.Err_List(errmsg,3)
	Response.End()
else
	Unid = Request("Unid")
end if
If Not(isNumeric(Unid)) Then 
Response.Write "非法地址~" 
Response.End
End If
id = Qcdn.checkStr(Trim(Request.querystring("id")))
isgood=request.querystring("isgood")
if isgood<>1 and isgood<>0 then
	Errmsg = "<li>发现异常错误。<li>非法地址。"
	call Qcdn.Err_List(errmsg,3)
	Response.End()
End If
 if isgood=0 then
 isgood= 1
 goods="信息屏蔽"
 else
 isgood= 0
 goods="信息显示"
 end if
 
conn.execute("Update 2s_list set sxs= "& isgood &"  where s_id = ("& Unid &")")
if goods="信息屏蔽" then
Response.write "<script>alert(""信息屏蔽"");location.href=""show.asp?unid="& Unid &"&id="& id &""";</script>"
else
Response.write "<script>alert(""信息显示"");location.href=""show.asp?unid="& Unid &"&id="& id &""";</script>"
end if
end if
End Sub

'=================================================
'过程名：Settop1
'作  用：本类固顶4
'参  数：无
'=================================================
sub Settop1()
if Session("flag") = "1" then
if Request("Unid") = "" then
	Errmsg = "<li>发现异常错误。<li>传递的文章编号为空。"
	call Qcdn.Err_List(errmsg,3)
	Response.End()
else
	Unid = Request("Unid")
end if
If Not(isNumeric(Unid)) Then 
Response.Write "非法地址~" 
Response.End
End If
id = Qcdn.checkStr(Trim(Request.querystring("id")))
isgood=request.querystring("isgood")
if isgood<>1 and isgood<>0 then
	Errmsg = "<li>发现异常错误。<li>非法地址。"
	call Qcdn.Err_List(errmsg,3)
	Response.End()
End If
 if isgood=0 then
 isgood= 1
 goods="本类固顶"
 else
 isgood= 0
 goods="解除本类本类固顶"
 end if

 conn.execute("Update 2s_list set top1= "& isgood &"  where s_id = ("& Unid &")")
if goods="本类固顶" then
Response.write "<script>alert(""本类固顶"");location.href=""show.asp?unid="& Unid &"&id="& id &""";</script>"
else
Response.write "<script>alert(""解除本类本类固顶"");location.href=""show.asp?unid="& Unid &"&id="& id &""";</script>"
end if
end if
End Sub
'=================================================
'过程名：Settop
'作  用：加总固顶5
'参  数：无
'=================================================
sub Settop()
if Session("flag") = "1" then
if Request("Unid") = "" then
	Errmsg = "<li>发现异常错误。<li>传递的文章编号为空。"
	call Qcdn.Err_List(errmsg,3)
	Response.End()
else
	Unid = Request("Unid")
end if
If Not(isNumeric(Unid)) Then 
Response.Write "非法地址~" 
Response.End
End If
id = Qcdn.checkStr(Trim(Request.querystring("id")))
isgood=request.querystring("isgood")
if isgood<>1 and isgood<>0 then
	Errmsg = "<li>发现异常错误。<li>非法地址。"
	call Qcdn.Err_List(errmsg,3)
	Response.End()
End If
 if isgood=0 then
 isgood= 1
 goods="加总固顶"
 else
 isgood= 0
 goods="解除总固顶"
 end if

 conn.execute("Update 2s_list set tops= "& isgood &"  where s_id = ("& Unid &")")
if goods="加总固顶" then
Response.write "<script>alert(""加总固顶"");location.href=""show.asp?unid="& Unid &"&id="& id &""";</script>"
else
Response.write "<script>alert(""解除总固顶"");location.href=""show.asp?unid="& Unid &"&id="& id &""";</script>"
end if
end if
End Sub

%>


<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td>
      <% 
if Request("Unid") = "" then
	Errmsg = "<li>发现异常错误。<li>传递的文章编号为空。"
	call Qcdn.Err_List(errmsg,3)
	Response.End()
else
	Unid = Request("Unid")
end if
If Not(isNumeric(Unid)) Then 
Response.Write "非法地址~" 
Response.End
End If
'title,u_id,author,classid,Nclassid,lx,dq,content,jx,hits,Intime
Sql = "Select title,u_id,author,classid,Nclassid,lx,dq,content,jx,hits,Intime,email_rs,name_rs,tel_rs,DefaultPic,sxs,top1,tops from 2s_list where s_id = " & Unid
Set Rs = conn.execute(Sql)
if Rs.eof and Rs.bof then
	Errmsg = "<li>发现异常错误。<li>错误编号为: error id。<li>请和管理员联系解决问题。"
	call Qcdn.Err_List(errmsg,3)
	Response.End()
else
title= Rs(0)
u_id= Rs(1)
author= Rs(2)
classid= Rs(3)
Nclassid= Rs(4)
lx= Rs(5)
dq= Rs(6)
content= Rs(7)
jx= Rs(8)
hits= Rs(9)
Intime= Rs(10)
email_rs= Rs(11)
name_rs= Rs(12)
tel_rs= Rs(13)
 DefaultPic=Rs(14)
sxs=Rs(15)
top1=Rs(16)
top=Rs(17)
u_ids= Rs(1)
end if
Rs.close
	sqls = "Update 2s_list set hits=hits+1 where s_id = " & Unid
	Conn.execute(sqls)
%>
    </td>
  </tr>
</table>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
<td width="175" valign="top"><div align="center">
      <%
	  if id <> "" then
	   %>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="25" background="2spic/bg1.gif"> <div align="center">具体分类</div></td>
        </tr>
      </table>
      <% 
	SqlStr = "Select Unid,Classname from 2s_class where flag = "&id&"   order by orderflag asc"
	set RsStr = conn.execute(SqlStr)

	if not RsStr.eof then
		do while not RsStr.eof
			for i = 1 to 2
			SqlStrs = "SELECT Nclassid, Count(Nclassid)  FROM 2s_list where Nclassid ="& RsStr(0) &" GROUP BY Nclassid"
	set RsStrs = conn.execute(SqlStrs)
	if not RsStrs.eof then
	nclassids="("&RsStrs(1)&")"
	RsStrs.close : set RsStrs = nothing
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -