admin_site.asp

商机网站8.0,比教完整,可以自己二次开发!

<!--#include file="conn.asp"-->
<!--#include file="head.asp"-->
<%
dim referer
referer = Request.ServerVariables("HTTP_REFERER")

if Request("action") = "pc" then
	call pc()
elseif request("action") = "passno" then
	call passno()
elseif request("action") = "passyes" then
	call passyes()
elseif request("action") = "pno" then
	call pno()
elseif request("action") = "pyes" then
	call pyes()
elseif request("action") = "savepc" then
	call savepc()
elseif request("action") = "del" then
	call del()
elseif request("action") = "alldel" then
	call alldel()
end if
%>
<%sub passno()
sql="update site set ifpass=0  where id="&cstr(request("id"))
conn.execute(sql)
response.redirect (referer)
end sub%>
<%sub passyes()
sql="update site set ifpass=1  where id="&cstr(request("id"))
conn.execute(sql)
response.redirect (referer)
end sub%>
<%sub pno()
sql="update site set ifp=0  where id="&cstr(request("id"))
conn.execute(sql)
response.redirect (referer)
end sub%>
<%sub pyes()
sql="update site set ifp=1  where id="&cstr(request("id"))
conn.execute(sql)
response.redirect (referer)
end sub%>

<%sub del()
sql="delete from site where id="&request("id")
conn.execute(sql)
response.redirect (referer)
end sub%>


<%sub alldel()
If Request("id")="" then%>
<script language=javascript>  
alert( "错误：您还没有选择呢！"  );
location.href = "javascript:history.back()"  
</script>
<%
else
set rs = server.CreateObject ("Adodb.recordset")
Num=request.form("id").count
for i=1 to Num
sql="delete from site where id="&request.form("id")(i)
conn.execute(sql)
next
end if
response.redirect (referer)
end sub%>


<%sub pc()%>
<table width="100%" border="0" cellspacing="3" cellpadding="3"><tr><td height="20">当前位置：<a href=main.asp>管理首页</a> 
	&gt;&gt; 评测商业信息</td></tr></table>
<% set rs=server.createobject("adodb.recordset")
   sql="select * from [site] where id="&request("id")
   rs.open sql,conn,1,1  
%>
<table width="95%" cellspacing="1" cellpadding="5" bgcolor="#999999" align="center">
<form action="admin_site.asp?action=savepc&id=<%=rs("id")%>" method=POST  name="form1"  >
<tr bgcolor="#CCCCCC" align=center><td colspan="2"><b>评测商业信息：<a href=<%=rs("siteurl")%> target=_blank><font color=blue><%=rs("sitename")%></a></b></td></tr>
<tr bgcolor=#ffffff height=20><td colspan="2"></td></tr>
<tr bgcolor=#eeeeee><td width=20% align=right>站点简介：</td><td><%=rs("sitecontent")%></td></tr>
<tr bgcolor=#eeeeee><td width=20% align=right>是否评测：</td><td><%if rs("ifp")=0 then%><input type="radio" name="ifp" value="1" >是 <input type="radio" name="ifp" value="0" checked> 否<%else%><input type="radio" name="ifp" value="1" checked >是 <input type="radio" name="ifp" value="0" > 否<%end if%></td></tr>
<tr bgcolor=#eeeeee><td align=right>评测结果：</td><td>速度<input type="text" name="pspeed" size="4" value=<%=rs("pspeed")%>> 内容<input type="text" name="pcontent" size="4" value=<%=rs("pcontent")%>> 设计<input type="text" name="pdesign" size="4" value=<%=rs("pdesign")%>>  人气<input type="text" name="phot" size="4" value=<%=rs("phot")%>></td></tr> 
<tr bgcolor=#eeeeee><td align=right>星级评定：</td><td><select name=pstar><option value=5 <%if rs("pstar")=5 then%> selected <%end if%>>★★★★★<option value=4 <%if rs("pstar")=4 then%> selected <%end if%>>★★★★<option value=3 <%if rs("pstar")=3 then%> selected <%end if%>>★★★<option value=2 <%if rs("pstar")=2 then%> selected <%end if%>>★★<option value=1 <%if rs("pstar")=1 then%> selected <%end if%>>★<option value=0 <%if rs("pstar")=0 then%> selected <%end if%>>无</select></td></tr>
<tr bgcolor=#eeeeee><td></td><td>&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" name="Submit" value="完成">&nbsp;&nbsp;&nbsp;&nbsp;<input type="reset" name="Submit2" value="重填"></td></tr></table>
<%end sub%>

<%sub savepc()%>
<%if request("id")<>"" then%>
<%
set rs = server.CreateObject ("adodb.recordset")
sql = "select * from site where id="&cstr(request("id"))
	rs.Open sql,conn,1,3
if not rs.eof then
	rs("ifp").value = Request("ifp")
	rs("pspeed").value = Request("pspeed")
	rs("pcontent").value = Request("pcontent")
	rs("pdesign").value = Request("pdesign")
	rs("phot").value = Request("phot")
	rs("pstar").value = Request("pstar")
	rs.Update 
end if
rs.Close 
set rs=nothing
%>
<script language=javascript>  
alert( "178商机网评测完成！"  );
location.href = "javascript:history.back()" 
</script>
<%end if%>
<%end sub%>