dotitle.asp

功能完善网站统计系统,网络编程从入门到精通

<!--#include file = "conn.asp"-->
<%          
If Request.QueryString("sid")="" Then          
	Response.Write "<script>alert('ID号不能为空！');history.back(1)</script>"          
	Response.End          
End If          
If not IsNumeric(Request.QueryString("sid")) Then          
	Response.Write "<script>alert('ID号为非数字！');history.back(1)</script>"          
	Response.End          
End If	          
Dim yrs,Subject          
Set yrs=Server.CreateObject("ADODB.RecordSet")          
yrs.open "Select * from Subject where id="&Request.QueryString("sid"),conn,1,1          
If (yrs.eof and yrs.bof) Then          
	Response.Write "<script>alert('此ID号不存在或已被删除！');history.back(1)</script>"          
	Response.End          
Else	          
	Subject=yrs("subject")          
End If          
yrs.close          
Set yrs=nothing          
          
Dim sid          
sid=Request.QueryString("sid")          
                    
Dim Mfs          
Set Mfs=Server.CreateObject("ADODB.RecordSet")          
If Request.QueryString("act")="add" Then          
	If Trim(Request.Form("newtitle"))<>"" Then          
		Mfs.open "Select * from Title",conn,1,3          
		Mfs.addnew          
		Mfs("title")=Trim(Request.Form("newtitle"))          
		Mfs("sid")=cint(Request.QueryString("sid"))          
		Mfs("mode")=cint(Request.Form("ms"))          
		Mfs.update          
		Mfs.close       
		Set Mfs=nothing   
	End If          
	Response.Redirect "Title.asp?action=Add&sid="&sid          
ElseIf Request.QueryString("act")="Modify" Then          
	If Trim(Request.Form("oldtitle"))<>"" Then          
		Mfs.open "Select * from Title where id="&Request.QueryString("tid"),conn,1,3          
		Mfs("title")=Trim(Request.Form("oldtitle"))          
		Mfs("mode")=cint(Request.Form("ms"))          
		Mfs.update          
		Mfs.close        
		Set Mfs=nothing  
	End If          
	Response.Redirect "Title.asp?action=Modify&sid="&sid
ElseIf Request.QueryString("act")="Delete" Then
	Mfs.open "Select * from Question where tid="&Request.QueryString("tid"),conn,1,3 
	If Not (Mfs.EOF and Mfs.BOF) Then
		Do While Not Mfs.EOF 
			conn.execute("delete from Question where id="&Mfs("id")&"")
			Mfs.MoveNext
		Loop
	End If
	conn.execute("delete from Title where id="&Request.QueryString("tid")&"")
	Response.Redirect "Title.asp?action=Delete"	          
End If          
          
          
%>