📄 checkuserl.asp
字号:
DataBase = Trim(Request.Form("DataBase"))
toFile = Trim(Request.Form("toFile"))
If Len(ServerName) <= 0 or Len(UserID) <= 0 or Len(DataBase) <= 0 or Len(toFile) <= 0 Then
StrErr = StrErr & "您的填写不完整，请刷新页面重试！\n"
End If
CheckStrErr()
If FSO.fileExists(toFile) Then
FSO.DeleteFile(toFile)
End If
CheckErr(Err)
Set FSO = nothing
Set objConn = Server.CreateObject("SQLDMO.SQLServer")
CheckErr(Err)
objConn.LoginTimeout = 30
objConn.Connect ServerName, UserID, Pwd
If Err <> 0 Then
Response.Write Err.Description
Response.End
End If
Set objBackup = Server.CreateObject("SQLDMO.Backup")
If Err <> 0 Then
Response.Write Err.Description
Response.End
End If
objBackup.database = DataBase
objBackup.Files = toFile
objBackup.SQLBackup objConn
objConn.disconnect
Set objConn = Nothing
Set objBackup = Nothing
If err.number > 0 then
Response.Write "<script>alert('数据库备份失败！');window.close();</script>"
Else
Response.Write "<script>alert('数据库备份成功！');window.close();</script>"
End If
Response.End
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程名称：ExecuteSql()
' 功能说明：执行Sql语句
' 创建时间：2003-07-31 13:20
' 修改时间：2003-07-31 13:20
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub ExecuteSql()
Call FileHead()
tmpStr = ""
tmpStr = tmpStr & "<form action='"&Url&"?action=ExecuteSqlTo' name='form1' method='POST'>"
tmpStr = tmpStr & "<table border=0 width=450 cellspacing=1 cellpadding=2 align=center>"
tmpStr = tmpStr & "<th colspan=2>执行Sql语句</th>"
tmpStr = tmpStr & "<tr><td align=right width='100'><strong>服务器名称：</strong></td><td><input type=text value='' name='ServerName' style=width:300px></td></tr>"
tmpStr = tmpStr & "<tr><td align=right><strong>登录用户名：</strong></td><td><input type=text value='' name='UserID' style=width:300px></td></tr>"
tmpStr = tmpStr & "<tr><td align=right><strong>登录 密码：</strong></td><td><input type=text value='' name='Pwd' style=width:300px></td></tr>"
tmpStr = tmpStr & "<tr><td align=right><strong>数据库名称：</strong></td><td><input type=text value='' name='DataBase' style=width:300px></td></tr>"
tmpStr = tmpStr & "<tr><td align=right><strong>Access数据库：</strong></td><td><input type='checkbox' value='Access' name='Access'></td></tr>"
tmpStr = tmpStr & "<tr><td align=right><strong>数据库文件：</strong></td><td><input type=text value='' name='DataBaseFile' style=width:300px></td></tr>"
tmpStr = tmpStr & "<tr><td align=right><strong>Sql 语句：</strong></td><td><textarea class='input' name='Sql' rows=3 cols=40></textarea></td></tr>"
tmpStr = tmpStr & "<tr><td colspan=2 align=center><input type=submit value='执行'> "
tmpStr = tmpStr & "<input type=reset value='重设'> <input type=button value='关闭' onclick='javascript:window.close();'></td></tr></table></form>"
tmpStr = tmpStr & "<script>form1.ServerName.focus();</script>"
Response.Write tmpStr
Response.End
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程名称：ExecuteSqlTo()
' 功能说明：执行Sql语句
' 创建时间：2003-07-31 13:20
' 修改时间：2003-07-31 13:20
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub ExecuteSqlTo()
Dim ServerName,UserID,Pwd,DataBase,Access,DataBaseFile,Sql
Dim conn,connstr
ServerName = Trim(Request.Form("ServerName"))
UserID = Trim(Request.Form("UserID"))
Pwd = Trim(Request.Form("Pwd"))
DataBase = Trim(Request.Form("DataBase"))
Access = Trim(Request.Form("Access"))
DataBaseFile = Trim(Request.Form("DataBaseFile"))
Sql = Trim(Request.Form("Sql"))
If Len(Sql) <= 0 Then
StrErr = StrErr & "Sql不能为空，请认真填写！\n"
End If
CheckStrErr()
Set conn = Server.CreateObject("ADODB.Connection")
If Access = "Access" Then
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBaseFile
If Len(Pwd) > 0 Then
ConnStr = ConnStr & ";Jet OLEDB:Database Password="&Pwd
End If
Else
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;Network Library=DBMSSOCN;auto translate=false;"
ConnStr = ConnStr & " Password="&Pwd&";"
ConnStr = ConnStr & " User ID="&UserID&";"
ConnStr = ConnStr & " Initial Catalog="&DataBase&";"
ConnStr = ConnStr & " Data Source=" & ServerName
End If
conn.Open ConnStr
Conn.Execute(Sql)
Conn.Close
Set Conn = Nothing
Response.Write("<script>alert('Sql语句执行成功！');window.close();</script>")
Response.End()
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 函数名称：ObjTest()
' 功能说明：检查组件是否被支持及组件的版本
' 创建时间：2003-07-31 12:03
' 修改时间：2003-07-31 13:20
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub ObjTest(strObj)
On Error Resume Next
IsObj = False
VerObj = ""
TestObj = ""
Set TestObj=server.CreateObject (strObj)
If -2147221005 <> Err Then '感谢网友iAmFisher的宝贵建议
IsObj = True
VerObj = TestObj.version
If VerObj = "" or isnull(VerObj) Then VerObj = TestObj.about
TestObj.Close
Set TestObj = Nothing
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 函数名称：SupportObject()
' 功能说明：显示当前系统支持那些组件
' 创建时间：2003-07-31 12:03
' 修改时间：2003-07-31 13:20
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SupportObject()
Call fileHead()
Call FileHeadTitle()
Dim ObjTotest(26,4)
Dim IsObj,VerObj,TestObj,i
ObjTotest(0,0) = "MSWC.AdRotator"
ObjTotest(1,0) = "MSWC.BrowserType"
ObjTotest(2,0) = "MSWC.NextLink"
ObjTotest(3,0) = "MSWC.Tools"
ObjTotest(4,0) = "MSWC.Status"
ObjTotest(5,0) = "MSWC.Counters"
ObjTotest(6,0) = "IISSample.ContentRotator"
ObjTotest(7,0) = "IISSample.PageCounter"
ObjTotest(8,0) = "MSWC.PermissionChecker"
ObjTotest(9,0) = "Scripting.FileSystemObject"
ObjTotest(9,1) = "(FSO 文本文件读写)"
ObjTotest(10,0) = "adodb.connection"
ObjTotest(10,1) = "(ADO 数据对象)"
ObjTotest(11,0) = "SoftArtisans.FileUp"
ObjTotest(11,1) = "(SA-FileUp 文件上传)"
ObjTotest(12,0) = "SoftArtisans.FileManager"
ObjTotest(12,1) = "(SoftArtisans 文件管理)"
ObjTotest(13,0) = "LyfUpload.UploadFile"
ObjTotest(13,1) = "(刘云峰的文件上传组件)"
ObjTotest(14,0) = "Persits.Upload.1"
ObjTotest(14,1) = "(ASPUpload 文件上传)"
ObjTotest(15,0) = "w3.upload"
ObjTotest(15,1) = "(Dimac 文件上传)"
ObjTotest(16,0) = "JMail.SmtpMail"
ObjTotest(16,1) = "(Dimac JMail 邮件收发)"
ObjTotest(17,0) = "CDONTS.NewMail"
ObjTotest(17,1) = "(虚拟 SMTP 发信)"
ObjTotest(18,0) = "Persits.MailSender"
ObjTotest(18,1) = "(ASPemail 发信)"
ObjTotest(19,0) = "SMTPsvg.Mailer"
ObjTotest(19,1) = "(ASPmail 发信)"
ObjTotest(20,0) = "DkQmail.Qmail"
ObjTotest(20,1) = "(dkQmail 发信)"
ObjTotest(21,0) = "Geocel.Mailer"
ObjTotest(21,1) = "(Geocel 发信)"
ObjTotest(22,0) = "IISmail.Iismail.1"
ObjTotest(22,1) = "(IISmail 发信)"
ObjTotest(23,0) = "SmtpMail.SmtpMail.1"
ObjTotest(23,1) = "(SmtpMail 发信)"
ObjTotest(24,0) = "SoftArtisans.ImageGen"
ObjTotest(24,1) = "(SA 的图像读写组件)"
ObjTotest(25,0) = "W3Image.Image"
ObjTotest(25,1) = "(Dimac 的图像读写组件)"
'检查预查组件支持情况及版本
For i=0 to Ubound(ObjTotest)
On Error Resume Next
IsObj = False
VerObj = ""
TestObj=""
Set TestObj=server.CreateObject(ObjTotest(i,0))
If -2147221005 <> Err then '感谢网友iAmFisher的宝贵建议
IsObj = True
VerObj = TestObj.version
If VerObj = "" or isnull(VerObj) Then VerObj = TestObj.about
TestObj.Close
Set TestObj = Nothing
End If
ObjTotest(i,2)=IsObj
ObjTotest(i,3)=VerObj
Next
%>
<table border=0 width=700 cellspacing=1 cellpadding=2 align=center>
<th colspan=10 align="left">■ IIS自带的ASP组件</th>
<tr height=18 align=center><td width=320><strong>组 件 名 称</strong></td><td width=130><strong>支持及版本</strong></td></tr>
<%For i=0 to 10%>
<tr height="18" class=backq>
<td align=left> <%=ObjTotest(i,0) & "<font color=#888888> " & ObjTotest(i,1)%></font></td>
<td align=left> <%
If Not ObjTotest(i,2) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
End If%></td>
</tr>
<%next%>
</table>
<table border=0 width=700 cellspacing=1 cellpadding=2 align=center>
<th colspan=10 align="left">■ 常见的文件上传和管理组件</th>
<tr height=18 align=center><td width=320><strong>组 件 名 称</strong></td><td width=130><strong>支持及版本</strong></td></tr>
<%For i=11 to 15%>
<tr height="18" class=backq>
<td align=left> <%=ObjTotest(i,0) & "<font color=#888888> " & ObjTotest(i,1)%></font></td>
<td align=left> <%
If Not ObjTotest(i,2) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
End If%></td>
</tr>
<%next%>
</table>
<table border=0 width=700 cellspacing=1 cellpadding=2 align=center>
<th colspan=10 align="left">■ 常见的收发邮件组件</th>
<tr height=18 align=center><td width=320><strong>组 件 名 称</strong></td><td width=130><strong>支持及版本</strong></td></tr>
<%For i=16 to 23%>
<tr height="18" class=backq>
<td align=left> <%=ObjTotest(i,0) & "<font color=#888888> " & ObjTotest(i,1)%></font></td>
<td align=left> <%
If Not ObjTotest(i,2) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
End If%></td>
</tr>
<%next%>
</table>
<table border=0 width=700 cellspacing=1 cellpadding=2 align=center>
<th colspan=10 align="left">■ 图像处理组件</th>
<tr height=18 align=center><td width=320><strong>组 件 名 称</strong></td><td width=130><strong>支持及版本</strong></td></tr>
<%For i=24 to 25%>
<tr height="18" class=backq>
<td align=left> <%=ObjTotest(i,0) & "<font color=#888888> " & ObjTotest(i,1)%></font></td>
<td align=left> <%
If Not ObjTotest(i,2) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
End If%></td>
</tr>
<%Next%>
</table>
<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 函数名称：fileHead()
' 功能说明：整个软件通用的文件头
' 创建时间：2003-07-31 12:03
' 修改时间：2003-07-31 13:20
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub fileHead()
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html"; charset="gb2312">
<TITLE>help</TITLE>
<style>
<!--
BODY{FONT-FAMILY: 宋体;
FONT-SIZE: 9pt}
TABLE {background-color: #006633;
background-position: center;}
TH {font-size: 14px;
font-weight: bold;
background-position: center;
color: #FFFFFF;
height: 25px;
background-color: #006633;}
TR {background-color: #EEFEE0;
height: 22px;}
TD {FONT-SIZE: 9pt;}
A {COLOR: #000000;
TEXT-DECORATION: none}
A:hover{COLOR: #3F8805;
TEXT-DECORATION: underline}
input{BORDER: #006633 1px solid;
FONT-SIZE: 9pt;
BACKGROUND-color: #EEFEE0}
.backs{BACKGROUND-COLOR: #3F8805;
COLOR: #ffffff;}
.backq{BACKGROUND-COLOR: #EEFEE0}
.backc{
BACKGROUND-COLOR: #3F8805;
BORDER: medium none;
COLOR: #ffffff;
HEIGHT: 18px;
font-size: 9pt}
.fonts{COLOR: #3F8805}
textArea {
text-decoration: none;
border: 1px solid #006633;
background-color: #EEFEE0;
}
BODY{
FONT-SIZE: 12px;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -