action.asp

基于asp的 班级同学录主页源代码

<% if session("user")="" then%>
<script language=vbscript>
MsgBox "错误：你尚未登录，请登录后继续此操作！"
location.href = "javascript:history.back()"
</script>
<%end if %>
<!--#include file="conn.asp"-->
<% if request("action")="add" then%>
<%if trim(request.form("type"))="" then%>
<script language=vbscript>
MsgBox "错误：组名必须填写！"
location.href = "javascript:history.back()"
</script>
<% else%>
<% dim rs,sql,typecount,count
set rs=server.createobject("adodb.recordset")
sql="select * from bookmark where user='"_
&session("user")&"' and type='"&request("type")&"'"
rs.open sql,conn,1,3
if not rs.eof then%>
<script language=vbscript>
MsgBox "这个名称已被使用，请重新填写！"
location.href = "javascript:history.back()"
</script>
<%else%>
<%
count=0
conn.execute" insert into bookmark (user,type,count) values("_
&"'"&session("user")&"',"_
&"'"&request("type")&"',"_
&"'"&count&"')"
%>
<%end if
end if
rs.close
set rs=nothing%>
<% elseif request("action")="del" then%>
<% conn.execute"delete * from bookmark where user='"&session("user")_
&"' and id="&request("typeid")
%>
<% elseif request("action")="b2b" then%>
<% conn.execute"update link set typeid='"&request("type2")&"' where user='"&session("user")&"' and typeid="&request("type1")%>
<% dim rs1,sql1,t2count
set rs1=server.createobject("adodb.recordset")
sql1="select * from link where user='"_
&session("user")&"' and typeid="&request("type2")
rs1.open sql1,conn,1,1
t2count=rs1.recordcount
%>
<% conn.execute "update bookmark set user='"&session("user")&"',count="&t2count&" where id="&request("type2")%>
<% conn.execute"delete * from bookmark where user='"&session("user")_
&"' and id="&request("type1")
%>
<%elseif request("action")="rename" then
if request("typenewname")="" then%>
<script language=vbscript>
MsgBox "错误：修改分类必须填写分类名！"
location.href = "javascript:history.back()"
</script>
<%
end if
typenewname=trim(request("typenewname"))
type1=trim(request("type1"))
conn.execute "update bookmark set type='"&typenewname&"' where id="&type1&" and user='"&session("user")&"'"
%>
<%elseif request("action")="addlink" then
if request("title")="" or request("linkurl")="" then%>
<script language=vbscript>
MsgBox "错误：网站名称和网址必须填写！"
location.href = "javascript:history.back()"
</script>
<%else%>
<% dim rs2,sql2,hits
set rs2=server.createobject("adodb.recordset")
sql2="select * from link where user='"_
&session("user")&"' and title='"&request("title")&"'"
rs2.open sql2,conn,1,3
if not rs2.eof then%>
<script language=vbscript>
MsgBox "这个网站名称已被使用，请重新填写！"
location.href = "javascript:history.back()"
</script>
<%else%>
<%
hits=0
conn.execute" insert into link (typeid,user,title,linkurl,addinfo,hits) values("_
&"'"&request("typeid")&"',"_
&"'"&session("user")&"',"_
&"'"&request("title")&"',"_
&"'"&request("linkurl")&"',"_
&"'"&request("addinfo")&"',"_
&"'"&hits&"')"
%>
<% conn.execute "update bookmark set count=count+1 where id="&request("typeid")%>
<%end if
end if%>
<% end if%>
<% response.redirect "main.asp"%>