📄 skin.asp

📁 WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼
💻 ASP
字号:
<!--#include file=commom.asp-->
<!--#include file=Function.asp-->
<%
Dim conn,TempStr,connstr,DEF_PageExeTime1
DEF_PageExeTime1=Timer * 1000
TempStr=""
Dim UserAgent
UserAgent=Trim(lcase(Request.Servervariables("HTTP_USER_AGENT")))
If Instr(UserAgent,"teleport")>0 or Instr(UserAgent,"webzip")>0 or Instr(UserAgent,"flashget")>0 or Instr(UserAgent,"offline")>0 Then
	response.write "非法浏览操作，请不要使用Teleport、WebZip这类软件下载本站，也不要使用googlebot这类浏览器浏览本站。"
	response.end
end if

Sub OpenDatabase
Dim cn,strcnn,DEF_PageExeTime1
  DEF_PageExeTime1=Timer * 1000
  Set conn=Server.CreateObject("ADODB.Connection")
  strcnn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath(""&const_txl_HomeUrl&"data/lsmir.mdb")
  conn.open strcnn
End Sub

Sub CloseDatabase
	if isobject(Conn)  then
		Conn.close
		Set conn = Nothing
	end if
End Sub

Function txl_SiteHead(headString)
	SiteHead(headString)
End Function

'-------------------------------------网站头部--------------------------------------

function SiteHead2(headString)
%>
<html><head>
<title><%=headString%></title>
<script src="<%=const_txl_HomeUrl%>js/open.js"></script>
    <link rel="stylesheet" type="text/css" href="<%=const_txl_HomeUrl%>js/style.css">
	<script src="<%=const_txl_HomeUrl%>js/mouse_on_title.js"></script>
</head>
<body style="margin:0px;">	
<%
End Function

function SiteHead(headString)
	SiteHead2(headString)
%>

<table width="779" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="border-top:#FF0000 3px solid;">
<tbody>
  <tr>
    <td width="214"><img src="<%=const_txl_HomeUrl&const_txllogourl%>"></td>
    <td align="center"></td>
    <td width="80" style="line-height:1.6;text-align:center;">·<a  class="top" href="javascript:;" onClick="var strHref=window.location.href;this.style.behavior='url(#default#homepage)';this.setHomePage('<%=const_homepageurl%>');">设为首页</a><br>
      ·<a  class="top" href="javascript:;" onclick="javascript:window.external.AddFavorite('<%=const_homepageurl%>','<%=const_homepagename%>')">加入收藏</a><br>
      ·<a href="mailto:<%=const_adminemail%>" class="top">联系我们</a> </td>
  </tr>
</tbody>
</table>

<table width="779"  border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF" style="text-align:center;line-height:1.5;border:#CCCCCC 1px solid;background-color:#F1F1F1;">
  <tr>
	<td style="padding-top:3px;"><a class="top" href="<%=const_txl_homeurl%>index.asp">影音首页</a></td>
	<td style="padding-top:3px;"><a class="top" href="<%=const_txl_homeurl%>message_show.asp">影音留言</a></td>
	<td style="padding-top:3px;"><a class="top" href="<%=const_txl_homeurl%>photo_show.asp">手机相册</a></td>
	<td style="padding-top:3px;"><a class="top" href="<%=const_txl_homeurl%>forum.asp">影音论坛</a></td>
	<td style="padding-top:3px;"><a class="top" href="<%=const_txl_homeurl%>user_classmateinfo.asp">会员资料</a></td>
	<td style="padding-top:3px;"><a class="top" href="<%=const_txl_homeurl%>music_showordersong.asp">互动影音</a></td>
	<td style="padding-top:3px;"><a class="top" href="<%=const_txl_homeurl%>help.asp">Wap影音帮助</a></td>
	<td width="35"><img src="<%= const_txl_HomeUrl %>images/nev_t.jpg" width="35" height="26"></td>
	<td style="padding-top:3px;color:#FFFFFF;" width="150" bgcolor="#CCCCCC">
  <%if	session("username")="" Then
		Response.write "<a class=""too"" href='"&const_txl_HomeUrl&"user_login.asp' title='点击登录Wap影音' style='cursor:hand'>登录</font></a>&nbsp;｜"
		Response.write "<a class=""too"" href='"&const_txl_HomeUrl&"user_register.asp' title='点击注册Wap影音' style='cursor:hand'>注册</font></a>&nbsp;｜"
		Response.Write "<font style='cursor:hand;color:gray' title='登录之后更精彩！'>我的信箱&nbsp;&nbsp;</font>"
	Else
		Response.write "<a class=""too"" href='"&const_txl_HomeUrl&"logout.asp' title='退出登录'>退出</font></a>&nbsp;&nbsp;"
		Response.write "<a class=""too"" href='"&const_txl_HomeUrl&"user_edituserinfo.asp' title='修改资料'>资料</a>&nbsp;&nbsp;"
		Dim usermsgnum
		usermsgnum=getmsgnum(Trim(session("username")))
		if usermsgnum>0 Then
			Response.Write "<a class=""too"" style='cursor:hand' href=javacript:; onclick=""javascript:winsteps_open_window('"&const_txl_HomeUrl&"user_showpermsg.asp?username="&session("username")&"',520,300,'msg');return false"" title='点击查看详情！'>我的信箱(<font color=red>"&usermsgnum&"</font>新</a>)"
			Response.Write "<bgsound  balance=0 src='"&const_txl_HomeUrl&"sound/mail.wav' loop=1> "
		Else
			Response.Write "<a class=""too"" style='cursor:hand' href=javacript:; onclick=""javascript:winsteps_open_window('"&const_txl_HomeUrl&"user_showpermsg.asp?username="&session("username")&"',520,300,'msg');return false"" title='暂时没有短信'>我的信箱(0新</a>)"
		End if
	End If
  %>
	</td>
  </tr>
</table>


<%
end function

'-------------------------------------网站底部--------------------------------------

function web_end
	Response.Write "<a name=bottom></a>"&vbcrlf
	Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"&vbcrlf
  	Response.Write "	<tr>"&vbcrlf 
	Response.Write "	<td style='font-family:verdana;border-bottom:#FF0000 3px solid;line-height:1.8;text-align:center;padding:8px;'>Copyright &copy; 2004 -2005 <a href="&const_homepageurl&" target=_blank title='"&const_homepagename&"'><font color=gray style='text-DECORATION: none'></font></a><br>Powered by：<a href='"&const_homepageurl&"' target='_blank'><font face=Verdana, Arial, Helvetica, sans-serif style=font-size:10px><b>"&const_homepagename&"</b></font></a>　All rights reserved <br> 　<a href='http://csk3.vicp.net/' target='_blank'>创时空软件注册中心</a>  页面执行时间:" & fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1)) & "ms</td>"&vbcrlf
  	Response.Write "	</tr>"&vbcrlf	
	Response.Write "</table>"&vbcrlf
	Response.Write "</BODY>"&vbcrlf
	Response.Write "</HTML>"&vbcrlf
end function



function online	
	dim user_ip,rs
	user_ip=Session("user_ip")
	If user_ip="" Then
		session("user_ip")=getuserip
		user_ip=Session("user_ip")
	End If

	set rs=conn.execute ("select * from online where ip='"&user_ip&"'")
	if rs.eof Then
		conn.execute ("insert into online(ip,sname,entertime,newtime) values ('"&user_ip&"',null,'"&now()&"','"&now()&"')")
	Else
		conn.execute ("update online set newtime='"&now()&"' where ip='"&user_ip&"'")
	End If

	rs.close
	set rs=nothing
	'conn.execute ("delete from online where datediff('s',newtime,now())>"&const_UserOnlineTimeOut)
	conn.execute ("delete from online where datediff('s',newtime,now())>"&const_UserOnlineTimeOut)
	'conn.execute ("delete from online where datediff(""s"",newtime,getdate())>"&const_UserOnlineTimeOut)
end function



function delonline(username)
	dim	tempusername
	conn.execute ("update online set sname=null where sname='"&username&"' and ip='"&Session("user_ip")&"'")
end function


function getuserip
	dim tempuserip
	Randomize
	tempuserip=Request.ServerVariables("Remote_host")
	tempuserip=tempuserip&":"&Fix(Rnd*10000)
	getuserip=tempuserip
end function

sub showonlineinfo
	dim rs,onlinetotalcount,onlineusercount,onlineuserstr
	onlinetotalcount=0
	onlineusercount=0
	onlineuserstr=""
	set rs=conn.execute("select ec.studentid,ec.sname,online.ip,online.entertime,online.newtime from online left join  ec on ec.studentid=online.sname")
	while not rs.eof
		IF not isnull(rs("studentid")) Then
			onlineusercount=onlineusercount+1
			onlineuserstr=onlineuserstr&"<font style='cursor:hand' title='"&rs(0)&" 进入时间:"&gethms(rs("entertime"))&" 最新活动时间:"&gethms(rs("newtime"))&"'>"&rs(1)&"</font> "
		End IF
		onlinetotalcount=onlinetotalcount+1
		rs.movenext
	wend
	rs.close
	set rs=nothing
	Response.Write "■ 总在线：<b>"&onlinetotalcount&"</b>人<br>"&Vbcrlf
	Response.Write "■ 登录会员:<b>"&onlineusercount&"</b>人 游客：<b>"&onlinetotalcount-onlineusercount&"</b>人<br>"&Vbcrlf
	Response.Write "■ 在线会员："&onlineuserstr
	Response.Flush
end sub

Function winsteps()
	dim winstepsstr
	winstepsstr=""
	winstepsstr=winstepsstr&"<table width=""99%"" border=""0"" cellspacing=""2"" cellpadding=""2"">"&Vbcrlf
	winstepsstr=winstepsstr&"	<tr>"&Vbcrlf
	winstepsstr=winstepsstr&"		<td align=""center""><a href=""http://www.niat.edu.cn"" target=""_blank""><img src=""images/niatlogo.gif"" alt=""南昌航空工业学院"" width=""88"" height=""31"" border=""0""></a></td>"&Vbcrlf
	winstepsstr=winstepsstr&"	</tr>"&Vbcrlf
	winstepsstr=winstepsstr&"	<tr>"&Vbcrlf
	winstepsstr=winstepsstr&"		<td align=""center""><a href=""http://www.81238.net/"" target=""_blank""><img src=""images/logo.gif"" alt=""自由空间"" width=""88"" height=""31"" border=""0""></a></td>"&Vbcrlf
	winstepsstr=winstepsstr&"	</tr>"&Vbcrlf
	winstepsstr=winstepsstr&"</table>"&Vbcrlf
	Response.Write winstepsstr
	Response.Flush
End Function
function gethms(datastr)
	dim h,m,s
	h=hour(datastr)
	m=minute(datastr)
	s=second(datastr)
	if h<10 then h="0"&h
	if m<10 then m="0"&m
	if s<10 then s="0"&s
	gethms=h&":"&m&":"&s
end function

Rem 留言脏字过滤
function BadWords_Deal(tempStr)

	Dim Str
	Str = tempStr
    Dim BadWordString_Temp,i,Temp_N
    BadWordString_Temp = split(const_BadWordString, "|")
    Temp_N = ubound(BadWordString_Temp)
    for i = 0 to Temp_N
        Str = Replace(Str, BadWordString_Temp(i), string(len(BadWordString_Temp(i)),"*"), 1,-1,0) 
    next
    BadWords_Deal = Str
end function

Rem 得到username的真实姓名
function getmasterusername(username)
	dim rs
	getmasterusername=""
	set rs=conn.execute ("select sname from ec where studentid='"&username&"'")
	if  rs.eof then
		getmasterusername=""
	else
		getmasterusername=rs(0)
	end if
	rs.close
	set rs=nothing
end function


%>
💿 文件大小 708 K
👤 上传用户 zaindyclg
📂 所属分类 Java编程
🏷️ 相关标签

#WAP #网上购物 #源程序
⌨️ 快捷键说明

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