doquestion.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
If Request.QueryString("tid")="" Then
	Response.Write "<script>alert('ID号不能为空！');history.back(1)</script>"
	Response.End
End If
If not IsNumeric(Request.QueryString("tid")) Then
	Response.Write "<script>alert('ID号为非数字！');history.back(1)</script>"
	Response.End
End If			
Dim yrs,Subject,Title
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
yrs.open "Select * from Title where id="&Request.QueryString("tid"),conn,1,1
If (yrs.eof and yrs.bof) Then
	Response.Write "<script>alert('此ID号不存在或已被删除！');history.back(1)</script>"
	Response.End
Else
	Title=yrs("title")
End If
yrs.close		
Set yrs=nothing

Dim Qrs
Set Qrs=Server.CreateObject("ADODB.RecordSet")
If Request.QueryString("act")="add" Then
	Qrs.open "Select * from Question",conn,1,3
	Qrs.addnew
	Qrs("question")=Trim(Request.Form("newquestion"))
	Qrs("ps")=cint(Trim(Request.Form("nps")))
	Qrs("tid")=cint(Request.QueryString("tid"))
	Qrs.update
	Qrs.close
	Response.Redirect "Question.asp?action=Add&sid="&Request.QueryString("sid")&"&tid="&Request.QueryString("tid")
ElseIf Request.QueryString("act")="Modify" Then
	Qrs.open "Select * from Question where id="&Request.QueryString("qid"),conn,1,3
	Qrs("question")=Trim(Request.Form("oldquestion"))
	Qrs("ps")=cint(Trim(Request.Form("ps")))
	Qrs.update
	Qrs.close
	Response.Redirect "Question.asp?action=Modify&sid="&Request.QueryString("sid")&"&tid="&Request.QueryString("tid")
ElseIf Request.QueryString("act")="Delete" Then
	conn.execute("delete from Question where id="&Request.QueryString("qid")&"")
	Response.Redirect "Question.asp?action=Delete"	 
End If

%>