GlHtml = str End Function '************************************************** '函数ID：0003[打开任意数据表并显示表结构及内容] '函数名：OpOtherDB '作 用：打开任意数据表并显示表结构及内容 '参 数：DBtheStr ---- 要打开表的数据库链接字串 '参 数：Opentdname ---- 要打开表名 '返回值：显示表结构及内容 '************************************************** Public Function OpOtherDB(ByVal DBtheStr,ByVal Opentdname) Response.write "<table border='0' width='100%' cellspacing='0' cellpadding='0'>" & vbCrlf Set Opdb_Conn=server.createobject("ADODB.Connection") Set Opdb_Rs =server.createobject("ADODB.Recordset") Opdb_Conn.open DBtheStr Opdb_sql_str="select * from "&Opentdname Opdb_Rs.open Opdb_Sql_Str,Opdb_Conn,1,1 Nfieldnumber=Opdb_Rs.Fields.count If Nfieldnumber >0 then Response.write "<tr>" & vbCrlf For i=0 to (Nfieldnumber-1) Response.write "<td style='border-style: ridge; border-width: 1' bgcolor='#E1E1E1' valign='middle' align='center'>" Response.write Trim(Opdb_Rs.Fields(i).Name) Response.write "</td>" & vbCrlf Next temptbi=0 Do While Not Opdb_Rs.Eof Response.write "</tr>" & vbCrlf For i=0 to (Nfieldnumber-1) If (temptbi<2) Then Response.write "<td style='border-style: ridge; border-width: 1' bgcolor='#F6F6F6' valign='middle'>" Response.write Trim(Opdb_Rs.Fields(i)) Response.write "</td>" & vbCrlf temptbi=temptbi+1 Else Response.write "<td style='border-style: ridge; border-width: 1' valign='middle'>" Response.write Trim(Opdb_Rs.Fields(i)) Response.write "</td>" & vbCrlf If temptbi>=3 Then temptbi=0 Else temptbi=temptbi+1 End If End If Next Opdb_Rs.MoveNext Response.write "</tr>" & vbCrlf Loop End If Opdb_Rs.Close Opdb_Conn.Close Set Opdb_Rs = Nothing Set Opdb_Conn=Nothing Response.write "</table>" & vbCrlf End function '************************************************** '函数ID：0004[读取两种路径] '函数名：Readsyspath '作 用：读取路径 '参 数：lx ---- 0:服务器IP加路径 1:服务物理路径 '返回值：路径字串 '************************************************** Public Function Readsyspath(ByVal lx) Dim templj,aryTemp,newpath templj="" newpath="" If lx=0 Then templj="http://"&Request("SERVER_NAME")&Request("PATH_INFO") aryTemp = Split(templj,"/") Else templj=Request("PATH_TRANSLATED") aryTemp = Split(templj,"\") End If For i = LBound(aryTemp) To UBound(aryTemp)-1 If lx=0 Then newpath=newpath&aryTemp(i)&"/" Else newpath=newpath&aryTemp(i)&"\" End If
设为主页
收藏本站
相关文章: