usersh.asp

很漂亮的一个网络公司的源码

<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<%
Dim tID,uID
tID = Request.QueryString("tID")
uID = Request.QueryString("uID")
If Not IsNumeric(tID) Then
	Response.Write "操作失败！"
	Response.End
Else
	tID = Clng(tID)
End if
If Not IsNumeric(uID) Then
	Response.Write "操作失败！"
	Response.End
Else
	uID = Clng(uID)
End if
Dim strSQL
If tID = 1 Then
	strSQL = "Update uInfo Set cLogin = 1 Where uID=" & uID
	Conn.Execute strSQL
ElseIf tID=2 Then
	strSQL = "Update uInfo Set cLogin = 0 Where uID=" & uID
	Conn.Execute strSQL
End If
Call CloseDataBase() '关闭对象
Response.Write "<script>" & vbcrlf
Response.Write "location.href='UserManage.asp';" & vbcrlf
Response.Write "</script>"
%>