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("../data/#scsjmdb.mdb")


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：114418202


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.webqy.cn target=_blank>风之子QQ:114418202</a> &copy;Version 4.1 beta 1</td></tr><tr>")
response.write("<td height=16 align=center>Copyright&copy;2006 - 2008 上海天天票务有限公司</a>. 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.webqy.cn target=_blank title='风之子'>风之子QQ:114418202</a> &copy;Version 4.1 beta 1</td></tr><tr>")
response.write("<td height=16 align=center>Copyright&copy;2005 - 2006 上海天天票务有限公司</a>. 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
%>