<%
Dim Db,Rs,SqlData,Connstr,Conn
'页面执行时间
dim startime,endtime
startime=timer()
%>
<%
'=======数据库连接字符串，设为您当前数据库相对路径和名称即可=========

Db="dtxy_data.mdb"

'===========================Start Sub_Zone===========================

sub HeadHtml()'网页头过程（多页面共享）%>

<%
dim photoconn,sql5,rs5,keywords1,url1,str,CurrentID,rs1,tempRS
dim connstr,datafile
datafile="../db/bear.asp"
'on error resume next
connstr="DBQ="+server.mappath(datafile)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set photoconn=server.createobject("ADODB.CONNECTION")
photoconn.open connstr

sql5="select * from config"
set rs5=photoconn.execute(sql5)
%>
<HTML><HEAD><TITLE><%=RS5(1)%>---过客留言</TITLE>

<META http-equiv=Content-Type content="text/html; charset=gb2312">
	<style type="text/css">
	<!--
	body {font-family:宋体;font-size:9pt;BACKGROUND-COLOR: #333333}
	A:link {text-decoration : none;color=#0F3F30;line-height:16px;font-size:9pt}
	A:visited {text-decoration : none;color=#0F3F30;line-height:16px;font-size:9pt}
	A:hover {text-decoration : underline;color=#006088;line-height:16px;font-size:9pt}
	td,input,textarea {font-family:宋体;line-height:16px;font-size:9pt;BACKGROUND-COLOR: #F2F2F2}
	//-->
	</style>

<SCRIPT language=JavaScript type=text/JavaScript>
<!--

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</SCRIPT>
<script language="JavaScript">
<!--

if (window.Event) 
document.captureEvents(Event.MOUSEUP); 

function nocontextmenu() 
{
event.cancelBubble = true
event.returnValue = false;

return false;
}

function norightclick(e) 
{
if (window.Event) 
{
if (e.which == 2 || e.which == 3)
return false;
}
else
if (event.button == 2 || event.button == 3)
{
event.cancelBubble = true
event.returnValue = false;
return false;
}

}

document.oncontextmenu = nocontextmenu; // for IE5+
document.onmousedown = norightclick; // for all others
//-->
</script>
<%keywords1=RS5("keywords")%>
<META 
content=<%=keywords1%> 
name=keywords>
<META 
content=<%=keywords1%> 
name=description>
<META 
content=<%=keywords1%> 
name=keywords>
<META 
content=<%=keywords1%> 
name=description>
<STYLE type=text/css></STYLE>
<STYLE type=text/css>.style2 {
	FONT-WEIGHT: bold; COLOR: #000000
}
.style3 {
	COLOR: #ffffff
}
</STYLE>

      <META 
      content=<%=keywords1%> 
      name=keywords>
      <META 
      content=<%=keywords1%> 
      name=description>
<STYLE type=text/css></STYLE>

<STYLE type=text/css>BODY {
	MARGIN-TOP: 0px; MARGIN-LEFT: 0px
}
</STYLE>

<STYLE type=text/css>.style1 {
	FONT-WEIGHT: bold
}
.style2 {
	FONT-SIZE: 14px
}
</STYLE>

                  <META 
                  content=<%=keywords1%> 
                  name=keywords>
                  <META 
                  content=<%=keywords1%> 
                  name=description>
<STYLE type=text/css>.style1 {
	FONT-WEIGHT: bold
}
.style2 {
	FONT-SIZE: 14px
}
</STYLE>

                  <META 
                  content=<%=keywords1%> 
                  name=keywords>
                  <META 
                  content=<%=keywords1%> 
                  name=description>
<STYLE type=text/css>BODY {
	MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; MARGIN-LEFT: 0px
}
.style1 {
	FONT-SIZE: 12px; COLOR: #000000
}
</STYLE>

<STYLE type=text/css>.style1 {
	FONT-WEIGHT: bold
}
.style2 {
	FONT-SIZE: 14px
}
</STYLE>

                  <META 
                  content=<%=keywords1%> 
                  name=keywords>
                  <META 
                  content=<%=keywords1%> 
                  name=description>
<LINK 
href="images/css.css" type=text/css rel=stylesheet>
<STYLE type=text/css>.style1 {
	COLOR: #666666
}
.unnamed1 {
	FONT-SIZE: 10pt; COLOR: #333333
}
</STYLE>

<META 
content=<%=keywords1%> 
name=keywords>
<META 
content=<%=keywords1%> 
name=description>
</head><body onLoad="MM_preloadImages('../image/zuopin7.jpg')">

<TABLE width="780" cellSpacing=0 cellPadding=0 align=center border=0>
  <TBODY>
  <TR>
    <TD><IMG height=110 alt="摄影 人体摄影 摄影工作室 人像摄影" 
      src="<%=RS5(3)%>" width=780 
  border=0></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center border=0>
  <TBODY>
  <TR>
    <TD bgColor=#cccccc background="<%=RS5(2)%>/images/004.gif"> 
      <TABLE cellSpacing=0 cellPadding=0 width="100%" background="<%=RS5(2)%>/images/004.gif" border=0 bgcolor="#CCCCCC">
          <td bgcolor="#CCCCCC"><TBODY>
        
        <TR>
          <TD bgcolor="#CCCCCC">&nbsp; </TD>
          <TD vAlign=bottom align=right bgColor=#cccccc background="<%=RS5(2)%>images/004.gif><%
	set Temprs=photoconn.execute("select ID,ClassName,classtype,url from ClassName order by RootID")
	do while not Temprs.eof
	Select case Temprs(2)
	case "1"
	  url1="photo.asp"
	case "2"
	  url1="wen.asp"
	case "3"
	  url1="contents.asp"
	case "4"
	  url1=TempRS(3)
	case "5"
	  url1="photo.asp"
	End Select
		str=str&"■ <a href="&RS5(2)&url1&"?ClassName="&Temprs(1)&"&ID="&Temprs(0)&">"
			str=str&"<font color=""#000000"">"&Temprs(1)&"</font></a> "
		Temprs.movenext
	loop
	Temprs.close:Set TempRS=nothing
	response.Write(str)
%>            &nbsp;&nbsp;</TD>
        </TR>  
        <TR bgColor=#333333>  
          <TD colSpan=2 height=2><IMG height=2 src=""   
      width=2></TD></TR></TABLE>
    </TD>
  </TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top bgColor=#ffffff height=21>      <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
        <TBODY>
        <TR>
          <td width="780"><Center><table width="100%" height="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
	  <tr>
	    <td height="22" colspan="2" bgcolor="#F0F0F0"><hr size="1"><%
    response.write "<span class='f1'><strong>位置：</strong></span><a href='../'><span class='whitebold'>首页</span></a><span class='whitebold'>→</span><a href='./'><span class='redbold'>访客留言</span></a>"%></td>
	  </tr>
      <tr>
        <td colspan="2" valign="top"><table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td><table width="780" height="16" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td height="16" align="left">&nbsp;</td>
              </tr>
            </table></td>
          </tr>
        </table></td>
        </tr>
</table>
          </Center>
      </TD>
    </TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<%
end sub

sub FootHtml()'网页尾过程（多页面共享）
dim photoconn,sql5
dim connstr,datafile
datafile="../db/bear.asp"
'on error resume next
connstr="DBQ="+server.mappath(datafile)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set photoconn=server.createobject("ADODB.CONNECTION")
photoconn.open connstr

sql5="select * from config"
set rs5=photoconn.execute(sql5)
     dim endtime,str,rs5
	 endtime=timer()
	str="<hr size='1' color='#666666' width='750'>"
	str=str&"<table width='600' border='0' cellspacing='0' cellpadding='0' align='center'>"
	str=str&"<tr><td align='right' class='gray'>"
	str=str&"<a href='#TOP'><b><font color='#009900'>TOP▲</font></b></a></div></td>"
	str=str&"</tr><tr> <td align='center' class='gray'>"
	str=str&"<a href='http://www.nd169.com/' target='_blank'>"&RS5(1)&"</a> 版权所有  设计：<font color='#000000'>"&RS5(5)&"</font> / TEL:"&RS5(13)
	str=str&"<br><Center>Email:"&RS5(6)&"  <img src=../images/qq.gif> "&RS5(7)&" 页面执行时间："&FormatNumber((endtime-startime)*1000,3)&"毫秒</Center></td>"
	str=str&"</tr></table><script src='count/index.asp'></script>"
     Rs5.close:Set Rs5=nothing
	 photoConn.close:Set photoConn=nothing
%>
<TABLE id=__01 cellSpacing=0 cellPadding=0 width=780 align=center border=0>
  <TBODY>
  <TR background="../image/019.gif">
    <TD background="" colSpan=11><EM><IMG height=2 src="" width=2></EM></TD></TR>
  <TR background="../image/019.gif">
    <TD noWrap background=../images/019.gif colSpan=11 height=66>
      <DIV align=center><%response.Write(str)%></DIV></TD></TR></TBODY></TABLE></body></html>
<%end sub

sub FounderErr()'信息过程（多页面共享）
%>
<meta http-equiv=refresh content="3;URL=<%=ToUrl%>">
<table width="780" border="1" cellspacing="0" cellpadding="5" align="center" bordercolor="#FFFFFF">
<tr bordercolor=#FFFFFF><td height=100><%=DoWhat%>，3秒后系统将自动返回：
<%=WhatErr%>
<LI><a href="<%=ToUrl%>">立即返回</a></LI>
<LI><a href="default.asp">返回留言簿首页</a></LI>
</td></tr></table>
<%end sub

sub LoginBody()		'登陆界面%>
<table width="780" border="0" cellspacing="0" cellpadding="5" align="center" bordercolor="#FFFFFF"> 
   <tr bordercolor="#FFFFFF"><td width="100%" colspan=2 align=right>
	   <a href="default.asp"><img src="images/home.gif" border=0 alt="返回首页"></a>
	   <a href="upfile.asp"><img src="images/newpage.gif" border=0 alt="签写留言"></a>
   </td></tr>
	 <tr bordercolor="#FFFFFF"><td width="100%" colspan=2 align=center bgcolor=#DEE5EF><B>管理员登陆</B></td></tr>
		<form method="POST" action="?action=login" onsubmit="return Validator(this)">
      <tr bordercolor="#FFFFFF"><td width="40%" align="right" bgcolor="#DEE5EF">用户名：</td>
          <td width="60%"><input type="text" name="name" size="20" maxlength=20></td></tr>
       <tr bordercolor="#FFFFFF"><td align="right" bgcolor="#DEE5EF">密 码：</td>
          <td><input type="password" name="passd" size="20" maxlength=20></td></tr>
        <tr bordercolor="#FFFFFF"><td width="100%" colspan=2 align=center><input type="submit" value=" 进 入 " name="B1"></td></tr>
		</form>
</table>
<script Language="JavaScript">
<!--
function Validator(theForm)
{
  if (theForm.name.value == "")
  {
    alert("请输入用户名！");
    theForm.name.focus();
    return (false);
  }
  if (theForm.passd.value == "")
  {
    alert("请输入密码！");
    theForm.passd.focus();
    return (false);
  }
  return (true);
}
//-->
</script>
<%end sub

sub login()		'登陆
dim name,passd,IsPassErr
IsPassErr=False
name=replace(request.form("name"),"'","")
passd=replace(request.form("passd"),"'","")
if name>"" and passd>"" then
	name=server.HTMLEncode(Lcase(name))
	passd=server.HTMLEncode(passd)
		SqlData="Select Top 1 administrator,password From Admin"
		Rs.open SqlData,Conn,1,1
		if Rs.eof and Rs.bof then
				IsPassErr=True
		elseif Rs(0)=name and Rs(1)=md5(passd) then
				DoWhat="登陆成功"
				WhatErr="<LI><a href=""admin.asp"">进入后台管理</a></LI>"
				session("admin")=True
				session("postname")=name
				session("times")=0
		else
				IsPassErr=True
		end if
		Rs.close
		set Rs=nothing
		Conn.close
		set Conn=nothing
else
		IsPassErr=True
end if
if IsPassErr then
	DoWhat="登陆失败"
	WhatErr="<LI>帐号或密码错误；</LI>"
	session("times")=session("times")+1
end if
end sub

'========================Start Function_Zone=========================
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32

Private m_lOnBits(30)
Private m_l2Power(30)
 
Private Function LShift(lValue, iShiftBits)
    If iShiftBits = 0 Then
        LShift = lValue
        Exit Function
    ElseIf iShiftBits = 31 Then
        If lValue And 1 Then
            LShift = &H80000000
        Else
            LShift = 0
        End If
        Exit Function
    ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
        Err.Raise 6
    End If

    If (lValue And m_l2Power(31 - iShiftBits)) Then
        LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
    Else
        LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
    End If
End Function

Private Function RShift(lValue, iShiftBits)
    If iShiftBits = 0 Then
        RShift = lValue
        Exit Function
    ElseIf iShiftBits = 31 Then
        If lValue And &H80000000 Then
            RShift = 1
        Else
            RShift = 0
        End If
        Exit Function
    ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
        Err.Raise 6
    End If
    
    RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)

    If (lValue And &H80000000) Then
        RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1)))
    End If
End Function

Private Function RotateLeft(lValue, iShiftBits)
    RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))
End Function

Private Function AddUnsigned(lX, lY)
    Dim lX4
    Dim lY4
    Dim lX8
    Dim lY8
    Dim lResult
 
    lX8 = lX And &H80000000
    lY8 = lY And &H80000000
    lX4 = lX And &H40000000
    lY4 = lY And &H40000000
 
    lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)
 
    If lX4 And lY4 Then
        lResult = lResult Xor &H80000000 Xor lX8 Xor lY8
    ElseIf lX4 Or lY4 Then
        If lResult And &H40000000 Then
            lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8
        Else
            lResult = lResult Xor &H40000000 Xor lX8 Xor lY8
        End If
    Else
        lResult = lResult Xor lX8 Xor lY8
    End If
 
    AddUnsigned = lResult
End Function

Private Function md5_F(x, y, z)
    md5_F = (x And y) Or ((Not x) And z)
End Function

Private Function md5_G(x, y, z)
    md5_G = (x And z) Or (y And (Not z))
End Function

Private Function md5_H(x, y, z)
    md5_H = (x Xor y Xor z)
End Function

Private Function md5_I(x, y, z)
    md5_I = (y Xor (x Or (Not z)))
End Function

Private Sub md5_FF(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
End Sub

Private Sub md5_GG(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
End Sub

Private Sub md5_HH(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
End Sub

Private Sub md5_II(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
End Sub

Private Function ConvertToWordArray(sMessage)
    Dim lMessageLength
    Dim lNumberOfWords
    Dim lWordArray()
    Dim lBytePosition
    Dim lByteCount
    Dim lWordCount
    
    Const MODULUS_BITS = 512
    Const CONGRUENT_BITS = 448
    
    lMessageLength = Len(sMessage)
    
    lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)
    ReDim lWordArray(lNumberOfWords - 1)
    
    lBytePosition = 0
    lByteCount = 0
    Do Until lByteCount >= lMessageLength
        lWordCount = lByteCount \ BYTES_TO_A_WORD
        lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
        lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)
        lByteCount = lByteCount + 1
    Loop

    lWordCount = lByteCount \ BYTES_TO_A_WORD
    lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE

    lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)

    lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)
    lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)
    
    ConvertToWordArray = lWordArray
End Function

Private Function WordToHex(lValue)
    Dim lByte
    Dim lCount
    
    For lCount = 0 To 3
        lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)
        WordToHex = WordToHex & Right("0" & Hex(lByte), 2)
    Next
End Function

Public Function MD5(sMessage)		'Md5()加密函数
    m_lOnBits(0) = CLng(1)
    m_lOnBits(1) = CLng(3)
    m_lOnBits(2) = CLng(7)
    m_lOnBits(3) = CLng(15)
    m_lOnBits(4) = CLng(31)
    m_lOnBits(5) = CLng(63)
    m_lOnBits(6) = CLng(127)
    m_lOnBits(7) = CLng(255)
    m_lOnBits(8) = CLng(511)
    m_lOnBits(9) = CLng(1023)
    m_lOnBits(10) = CLng(2047)
    m_lOnBits(11) = CLng(4095)
    m_lOnBits(12) = CLng(8191)
    m_lOnBits(13) = CLng(16383)
    m_lOnBits(14) = CLng(32767)
    m_lOnBits(15) = CLng(65535)
    m_lOnBits(16) = CLng(131071)
    m_lOnBits(17) = CLng(262143)
    m_lOnBits(18) = CLng(524287)
    m_lOnBits(19) = CLng(1048575)
    m_lOnBits(20) = CLng(2097151)
    m_lOnBits(21) = CLng(4194303)
    m_lOnBits(22) = CLng(8388607)
    m_lOnBits(23) = CLng(16777215)
    m_lOnBits(24) = CLng(33554431)
    m_lOnBits(25) = CLng(67108863)
    m_lOnBits(26) = CLng(134217727)
    m_lOnBits(27) = CLng(268435455)
    m_lOnBits(28) = CLng(536870911)
    m_lOnBits(29) = CLng(1073741823)
    m_lOnBits(30) = CLng(2147483647)
    
    m_l2Power(0) = CLng(1)
    m_l2Power(1) = CLng(2)
    m_l2Power(2) = CLng(4)
    m_l2Power(3) = CLng(8)
    m_l2Power(4) = CLng(16)
    m_l2Power(5) = CLng(32)
    m_l2Power(6) = CLng(64)
    m_l2Power(7) = CLng(128)
    m_l2Power(8) = CLng(256)
    m_l2Power(9) = CLng(512)
    m_l2Power(10) = CLng(1024)
    m_l2Power(11) = CLng(2048)
    m_l2Power(12) = CLng(4096)
    m_l2Power(13) = CLng(8192)
    m_l2Power(14) = CLng(16384)
    m_l2Power(15) = CLng(32768)
    m_l2Power(16) = CLng(65536)
    m_l2Power(17) = CLng(131072)
    m_l2Power(18) = CLng(262144)
    m_l2Power(19) = CLng(524288)
    m_l2Power(20) = CLng(1048576)
    m_l2Power(21) = CLng(2097152)
    m_l2Power(22) = CLng(4194304)
    m_l2Power(23) = CLng(8388608)
    m_l2Power(24) = CLng(16777216)
    m_l2Power(25) = CLng(33554432)
    m_l2Power(26) = CLng(67108864)
    m_l2Power(27) = CLng(134217728)
    m_l2Power(28) = CLng(268435456)
    m_l2Power(29) = CLng(536870912)
    m_l2Power(30) = CLng(1073741824)


    Dim x
    Dim k
    Dim AA
    Dim BB
    Dim CC
    Dim DD
    Dim a
    Dim b
    Dim c
    Dim d
    
    Const S11 = 7
    Const S12 = 12
    Const S13 = 17
    Const S14 = 22
    Const S21 = 5
    Const S22 = 9
    Const S23 = 14
    Const S24 = 20
    Const S31 = 4
    Const S32 = 11
    Const S33 = 16
    Const S34 = 23
    Const S41 = 6
    Const S42 = 10
    Const S43 = 15
    Const S44 = 21

    x = ConvertToWordArray(sMessage)
    
    a = &H67452301
    b = &HEFCDAB89
    c = &H98BADCFE
    d = &H10325476

    For k = 0 To UBound(x) Step 16
        AA = a
        BB = b
        CC = c
        DD = d
    
        md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478
        md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756
        md5_FF c, d, a, b, x(k + 2), S13, &H242070DB
        md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
        md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
        md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A
        md5_FF c, d, a, b, x(k + 6), S13, &HA8304613
        md5_FF b, c, d, a, x(k + 7), S14, &HFD469501
        md5_FF a, b, c, d, x(k + 8), S11, &H698098D8
        md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
        md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
        md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE
        md5_FF a, b, c, d, x(k + 12), S11, &H6B901122
        md5_FF d, a, b, c, x(k + 13), S12, &HFD987193
        md5_FF c, d, a, b, x(k + 14), S13, &HA679438E
        md5_FF b, c, d, a, x(k + 15), S14, &H49B40821
    
        md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562
        md5_GG d, a, b, c, x(k + 6), S22, &HC040B340
        md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51
        md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
        md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D
        md5_GG d, a, b, c, x(k + 10), S22, &H2441453
        md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681
        md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
        md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
        md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6
        md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87
        md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED
        md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905
        md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
        md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9
        md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A
            
        md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942
        md5_HH d, a, b, c, x(k + 8), S32, &H8771F681
        md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122
        md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C
        md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
        md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
        md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
        md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
        md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6
        md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA
        md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085
        md5_HH b, c, d, a, x(k + 6), S34, &H4881D05
        md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039
        md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
        md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
        md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665
    
        md5_II a, b, c, d, x(k + 0), S41, &HF4292244
        md5_II d, a, b, c, x(k + 7), S42, &H432AFF97
        md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7
        md5_II b, c, d, a, x(k + 5), S44, &HFC93A039
        md5_II a, b, c, d, x(k + 12), S41, &H655B59C3
        md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92
        md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D
        md5_II b, c, d, a, x(k + 1), S44, &H85845DD1
        md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F
        md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
        md5_II c, d, a, b, x(k + 6), S43, &HA3014314
        md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1
        md5_II a, b, c, d, x(k + 4), S41, &HF7537E82
        md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235
        md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
        md5_II b, c, d, a, x(k + 9), S44, &HEB86D391
    
        a = AddUnsigned(a, AA)
        b = AddUnsigned(b, BB)
        c = AddUnsigned(c, CC)
        d = AddUnsigned(d, DD)
    Next    
    MD5=LCase(WordToHex(b) & WordToHex(c))
End Function

Function IsLogin()		'管理链接（多页面共享）
	if session("admin")=True then
		IsLogin="<a href=""admin.asp""><img src=""images/passwd.gif"" border=0 alt=""后台管理""></a> "&_
						"<a href=""admin.asp?modify=loginout""><img src=""images/loginout.gif"" border=0 alt=""退出登陆""></a> "
	else
		IsLogin="<a href=""admin.asp""><img src=""images/login.gif"" border=0 alt=""管理登陆""></a> "
	end if
End Function

Function DisableIp(IpStop)'IP限制判断
DisableIp=False
	For ii=Lbound(EachIp) to Ubound(EachIp)
		If EachIp(ii)=IpStop Then
			DisableIp=True
			Exit For
		End If
	Next
End Function

Function ChkBadWords(fString)'脏话过滤函数（多页面共享）
EachBadWords=Split(BadWords,"|")
EachBadWords1=Split(BadWords1,"|")
	For ii=Lbound(EachBadWords) to Ubound(EachBadWords)
		fString=replace(fString,EachBadWords(ii),EachBadWords1(ii))
	Next
	ChkBadWords=fString
End Function

'==========================Star MainSub============================

Connstr="DBQ="+server.mappath(Db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn=Server.CreateObject("ADODB.connection")
'On Error Resume Next
Conn.open Connstr
if Err Then
	Set Conn = Nothing
	Response.Write "数据库连接出错，以下是产生这种错误的可能原因及解决方法："&_
	"<LI>conn.asp页面中的数据库连接字符串出错，请检查并修正；</LI>"&_
	"<LI>若连接字符串无误，试着将数据库更换另一个名称或后缀，在conn.asp中做相应修改后重试；</LI>"&_
	"<P>按上述方法处理后问题依然得不到解决，请联系我们！Email:zjmotion@163.com Web:www.feelings.ku.net"
	Err.Clear
	Response.End
End If
Dim ToUrl,DoWhat,WhatErr
ToUrl=Request.Servervariables("HTTP_REFERER")'自动返回网页地址，默认为上一页
Set Rs=Server.CreateObject("ADODB.Recordset")
SqlData="select top 1 * from Config"
Rs.open SqlData,conn,1,1
if Not Rs.eof and Not Rs.eof then
	Dim UpJpgFile,fsize,AbleFileExt,BadWords,BadWords1,IpDisable,LybName,HomePage,KeyWord,Descrip,MainNote,CopyRight,EachIp,EachBadWords,EachBadWords1,IsErr
	Dim times,HomePageNO,HotPageNO,ii
	ii=0
	times=5  '口令重试次数
	IpDisable=Rs("IpDisable")
	LybName=Rs("LybName")
	KeyWord=Rs("keyword")
	Descrip=Rs("descrip")
	CopyRight=Rs("copyright")
	EachIp=Split(IpDisable,"|")
	If Not session("admin") and DisableIp(Request.Servervariables("REMOTE_ADDR")) Then	'限制IP判断
		Rs.close
		DoWhat="禁止访问"
		Call HeadHtml()
		If request.querystring("action")="login" and int(session("times"))<=times Then	'管理员登陆
			Call login()
			Call FounderErr()
		Else
			response.write "<table align=center width=780><tr><td align=center colspan=2><img src=""images/iplock.gif"" border=0> <font color=RED>禁止访问！对不起，您的ＩＰ被管理员限制！</font></td></tr></table>"
			Call LoginBody()
		End If
		Call FootHtml()
		Response.End
	End If	'IP限制判断结束
	HomePage=Rs("HomePage")
	BadWords=Rs("BadWords")
	BadWords1=Rs("BadWords1")
	MainNote=Rs("MainNote")
	UpJpgFile=Rs("UpJpgFile")
	fsize=Rs("fsize")
	AbleFileExt=Rs("AbleFileExt")
	HomePageNO=Rs("homepageno")
	HotPageNO=Rs("hotpageno")
	Rs.close
	if HomePage="" then	HomePage="default.asp"
end if
%>