⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 conn.asp

📁 一个有用的东西 希望大家喜欢 谢谢大家对本站的支持
💻 ASP
字号:
🔍 
<script language="JavaScript" src="system/mfkiqpl.js" type="text/JavaScript"></script>
<%
dim startime
startime=timer()*1000

dim conn
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("mdb/mfkiqpl.mdb")
'MSSQL连接
'conn.open "driver={SQL server};server=mfkiqpl;UID=mfkiqpl;PWD=angelic;database=mfkiqpl"

sub closers(rs)
rs.close
set rs=nothing
end sub

sub closeconn
conn.close
set conn=nothing
end sub

sub managemode
if session("admin")<>"mfkiqpl" then
response.write("<script>top.location='error.asp?errormsg=<li>您不是管理员，或您没有登录！</li><br><li>您的登录信息已经过期，请重新登录！</li>';</script>")
end if
end sub

function mfkiqpl(text)
text=trim(text)
if not isnull(text) then
    text = replace(text, ">", "&gt;")
    text = replace(text, "<", "&lt;")
    text = Replace(text, CHR(32), "<I></I>&nbsp;")
    text = Replace(text, CHR(9), "&nbsp;")
    text = Replace(text, CHR(34), "&quot;")
    text = Replace(text, CHR(39), "&#39;")
    text = Replace(text, CHR(13), "")
    text = Replace(text, CHR(10) & CHR(10), "</P><P> ")
    text = Replace(text, CHR(10), "<BR> ")
    mfkiqpl=text
end if
end function

function angelic(vstrin) 
  dim i,strreturn 
    strreturn = "" 
    for i = 1 to len(vstrin) 
        thischr = mid(vstrin,i,1) 
        if abs(asc(thischr)) < &hff then 
            strreturn = strreturn & thischr 
        else 
            innercode = asc(thischr) 
            if innercode < 0 then 
                innercode = innercode + &h10000 
            end if 
            hight8 = (innercode and &hff00)\ &hff 
            low8 = innercode and &hff 
            strreturn = strreturn & "%" & hex(hight8) & "%" & hex(low8) 
        end if 
    next 
    angelic = strreturn 
end function

Response.Buffer=True
set setrs=conn.execute("select * from setos where id=2")
sessiontimeout=setrs("sessiontimeout")
session.timeout=sessiontimeout
rsize=setrs("indexrsize")
dsize=setrs("dsize")
tsize=setrs("tsize")
title1=setrs("pagetitle")
webindex=setrs("webindex")
copyr=setrs("copyr")
showlx=setrs("showlx")
showhot=setrs("showhot")
shownew=setrs("shownew")
showvote=setrs("showvote")
showly=setrs("showly")
showtop=setrs("showtop")
pagecss=setrs("pagecss")
c1=setrs("c1")
c2=setrs("c2")
c3=setrs("c3")
c4=setrs("c4")
c5=setrs("c5")
response.write("<style type='text/css'><!--")
response.write pagecss
response.write("--></style>")
pagelogo=setrs("pagelogo")
pagebu=setrs("pagebu")
closers(setrs)

'严重申明
'由于本程序完全免费、公开的提供下载，故任何人不得对以下代码进行修改！
'否则必究！有何不懂请联系QQ：31827726
sub pagestart
response.write("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'><html>")
response.write("<head><title>"&title1&"</title>")
response.write("</head><body>")
response.write("<table width='755' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor='"&C1&"'>")
response.write("<tr><td height='60' bgcolor='"&c3&"'>")
response.write("<table width=755 border=0 cellspacing=0 cellpadding=0><tr align=center>")
response.write("<td width=168 height=60>"&pagelogo&"</td>")
response.write("<td width=587>"&pagebu&"</td>")
response.write("</tr></table></td></tr></table>")
response.write("<table width='755' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td height='5'></td></tr></table>")
response.write("<table width='755' height='22' border='0' align='center' cellpadding='0' cellspacing='1' bgcolor='"&c1&"'>")
response.write("<tr><td bgcolor='"&c2&"'>")
response.write("<table width='755' border='0' align='center' cellpadding='0' cellspacing='0'><tr align='center'>")
response.write("<td width='75' height='16'><a href="&webindex&">网站首页</a></td><td width='75' height='16'><a href='index.asp' title=返回旅游预订首页>预订首页</a></td><td width='75' height='16'><a href=""news.asp"">最新动态</a></td>")
response.write("<td width='75' height='16'><a href='search.asp' title=查找适合我的线路>线路搜索</a></td>")
response.write("<td width='75' height='16'><a href='sendmessage.asp' title=给网站管理员发站内短信>站内短信</a></td><td width='75' height='16'><a href='guestbook.asp' title=进入我社留言板>请您留言</a></td>")
response.write("<td width='75' height='16'><a href='listall.asp?action=userlook' title=查看自己的预订被处理情况>我的预订</a></td><td width='75' height='16'><a href='admin_main.asp' title=直接进入管理>管理菜单</a></td>")
response.write("<td width='75' height='16'><a href='admin_login.asp' title=后台管理登录>管理登录</a></td></tr></table></td></tr></table>")
response.write("<table width='755' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td height='5'></td></tr></table>")
end sub

sub pageend
closeconn
response.write("<table width=755 border=0 align=center cellpadding=0 cellspacing=0 bgcolor="&c3&"><tr><td height=2 align=center bgcolor="&c5&"></td></tr><tr>")
response.write("<td height=16 align=center>Powered by <a href=http://www.zjjnet.com target=_blank>Mfkiqpl旅游线路预订程序</a> &copy;Version 4.1 beta 1</td></tr><tr>")
response.write("<td height=16 align=center>Copyright&copy;2003 - 2005 "&copyr&". All Rights Reserved.</td></tr><tr><td height=16 align=center>")
dim endtime
endtime=timer()*1000
usedTime=formatnumber(endtime-startime,1,-1)&"毫秒"
response.Write("执行时间："&usedtime&"")
response.write("</td></tr></table></body></html>")
end sub

sub manageend
closeconn
response.write("<table width=618 border=0 cellpadding=0 cellspacing=0><tr><td height=5></td></tr></table>")
response.write("<table width=618 border=0 cellpadding=0 cellspacing=0 bgcolor="&c3&"><tr><td height=2 align=center bgcolor="&c5&"></td></tr><tr>")
response.write("<td height=16 align=center>Powered by <a href=http://www.zjjnet.com target=_blank title='检查版本更新'>Mfkiqpl旅游线路预订程序</a> &copy;Version 4.1 beta 1</td></tr><tr>")
response.write("<td height=16 align=center>Copyright&copy;2003 - 2004 "&copyr&". All Rights Reserved.</td></tr><tr><td height=16 align=center>")
dim endtime
endtime=timer()*1000
usedTime=formatnumber(endtime-startime,1,-1)&"毫秒"
response.Write("执行时间："&usedtime&"")
response.write("</td></tr></table></body></html>")
end sub
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -