<%Function delHtml(strHtml) '做了一个函数名叫delhtml
Dim objRegExp, strOutput
Set objRegExp = New Regexp ' 建立正则表达式
objRegExp.IgnoreCase = True ' 设置是否区分大小写
objRegExp.Global = True '是匹配所有字符串还是只是第一个
objRegExp.Pattern = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)" ' 设置模式引号中的是正则表达式,用来找出html标签
strOutput = objRegExp.Replace(strHtml, "") '将html标签去掉
strOutput = Replace(strOutput, "<", "<") '防止非html标签不显示
strOutput = Replace(strOutput, ">", ">")
delHtml = strOutput
Set objRegExp = Nothing
End Function%>
<%
randomize
yzm=int(8999*rnd()+1000)
%>
<script language="JavaScript">
function checkform(){
if (document.loginbox.userid.value.length ==0){
alert("Wrong, you do not have to fill Username ");
document.loginbox.userid.focus();
return false;
}
if (document.loginbox.password.value.length==0){
alert("Wrong, you do not have to fill in password. ");
document.loginbox.password.focus();
return false;
}
<%
response.write "if (document.loginbox.yzm.value.length==0){"
%>
alert("Wrong, you do not have to fill in the verification code.");
document.loginbox.yzm.focus();
return false;
}
<%
response.write "if (document.loginbox.yzm.value!="&yzm&"){"
%>
alert("Wrong, you fill in the test code is not correct.");
document.loginbox.yzm.focus();
return false;
}
return true;
}
</script>
<html>
<head>
<title>Welcome To Shenzhen Jiameikang science Co., Ltd.</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
margin-left: 10px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 10px;
}
-->
</style>
<link href="CSS/CSS.css" rel="stylesheet" type="text/css">
<script type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<style type="text/css">
<!--
.style1 {
font-size: 12px;
font-family: Arial, Helvetica, sans-serif;
}
-->
</style>
</head>
<body bgcolor="#FFFFFF">
<table id="__01" width="851" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="93" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<!--#include file="search.asp" -->
</td>
</tr>
<%
Set dawei=Server.CreateObject("ADODB.Recordset")
sql="Select top 6 * from news where nid =1 order by ID desc"
dawei.open sql,conn,1,1
%>
<%
Set dydydy=Server.CreateObject("ADODB.Recordset")
sql="Select * from url order by id desc"
dydydy.open sql,conn,1,1
%>
<%
Set dy=Server.CreateObject("ADODB.Recordset")
sql="Select top 1 * from buyok_produc where tj=1 order by ProdId desc"
dy.open sql,conn,1,1
%>
<%
Set dydy=Server.CreateObject("ADODB.Recordset")
sql="Select top 1 * from buyok_produc where tj=2 order by ProdId desc"
dydy.open sql,conn,1,1
%>
<tr>
<td><DIV id=flashcontent2>
<object classid="clsid

27CDB6E-AE6D-11cf-96B8-444553540000" codebase="
http://download.macromedia.com/pub/s...rsion=7,0,19,0" width="851" height="312">
<param name="movie" value="flash/jmk_index02.swf">
<param name="quality" value="high">
<embed src="flash/bf.swf" quality="high" pluginspage="
http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="848" height="58"></embed>
</object>
</DIV></td>
<SCRIPT type=text/javascript>
var fo = new FlashObject("flash/jmk_index02.swf", "mymovie", "851px", "312px", "8", "#336699");
fo.addParam("quality", "hight");
fo.addParam("wmode", "transparent");
fo.addParam("scale", "noscale");
fo.write("flashcontent2");
</SCRIPT>
</tr>
</table>
</td>
</tr>
<tr>
<td><table id="Table1" width="851" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="8"></td>
</tr>
<tr>
<td valign="top"><table id="Table2" width="851" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><table id="Table3" width="206" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><form method="post" name="loginbox" action="logina.asp" onSubmit="return checkform();">
<table id="Table4" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25"><img src="images/d_01.jpg" width="206" height="21" alt="" /></td>
</tr>
<tr>
<td><table border="0" width="200" cellpadding="0" cellspacing="0" align=center
style="table-layout:fixed;word-break:break-all">
<%
'根据cookies判断用户是否已经登陆
if request.cookies("buyok")("userid")="" then
%>
<tr>
<td align=center><table width="100%" border=0 cellpadding="0" cellspacing="0">
<tr>
<td height="20" colspan=3 align="center" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="35%" align="left">Users: </td>
<td width="65%"><input name="userid" type="text" id="userid" size="15" /></td>
</tr>
</table></td>
</tr>
<tr>
<td height="20" colspan=3 align="center" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="35%" align="left">Password: </td>
<td width="65%"><input name="password" type="password" id="password" size="15" />
<input type="hidden" name="login" value="ok"></td></tr>
</table></td>
</tr>
<tr>
<td height="9" colspan=3 align="center" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="35%" align="left">Verify:</td>
<td width="65%" align="left"><input name="yzm" type="text" id="yzm" size="8" />
<%
a=int(yzm/1000)
b=int((yzm-a*1000)/100)
c=int((yzm-a*1000-b*100)/10)
d=int(yzm-a*1000-b*100-c*10)
response.write "<img align=top height=15 border=0 src=images/yzm/1/"&a&".gif><img align=top height=15 border=0 src=images/yzm/1/"&b&".gif><img align=top height=15 border=0 src=images/yzm/1/"&c&".gif><img align=top height=15 border=0 src=images/yzm/1/"&yzm_skin&"/"&d&".gif>"
%></td>
</tr>
</table></td>
</tr>
<tr>
<td width="35%" align="left" valign="top">Validity:</td>
<td width="65%" colspan=2 align="left" valign="middle">
<select name="cook" size="1" id="cook" alt="Landing is valid choice ">
<option value="0">Not Saved</option>
<option value="1">One Day</option>
<option value="30">One Month</option>
<option value="365">One Year</option>
</select> </td>
</tr>
<tr>
<td width="40" align="left"><input alt="Login" type="image" src="images/d_03_01.jpg" border="0" name="images2" /></td>
<td width="65" align="left"><a class="c" href="zc.asp"><img src="images/d_03_03.jpg" alt="Registration for the site Member " width="65" height="21" border="0" /></a></td>
<td width="140" align="center"><a href="getpsw.asp"><font color="red"><u alt=Recover passwords>Get pwd </u></font></a></td>
</tr>
</table> </td>
</tr>
<%
else
'读取cookies中购物车中商品的数量
buyok_cart=request.cookies("buyok")("cart")
buyok_cart_split=split(buyok_cart,",")
if buyok_cart="" then
buyok_cart_num=0
else
buyok_cart_num=(ubound(buyok_cart_split)+1)/2
end if
'读取cookies中商品的总金额
total=request.cookies("buyok")("total")
if total="" then total=0
%>
<tr>
<td height="20" align=center>Your cart with <font color=red><%=buyok_cart_num%></font> products</td>
</tr>
<tr>
<td height="20" align=center> </td>
</tr>
<tr>
<td height="20" align=center>Total loans: <font color=red><%=total%></font>$</td>
</tr>
<tr>
<td height="20" align=center><A href="logout.asp">Quit Safety</A></td>
</tr>
<tr>
<td height="20" align="center" ><p><a href="user_center.asp"><font color=red><u title=Member access to the center>Member Center</u></font></a> <span style='cursor: hand' onClick="window.open('order/shop.asp','blank_','scrollbars=yes,resizable=no,wi dth=650,height=450')"><font color=red><u title=View Cart >Cart</a>
</font></span></p>
<p> </p></td>
</tr>
<%
end if
%>
</table></td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="5" height="1"></td>
</tr>
<tr>
<td width="206" height="140" align="center" valign="top"><iframe border=0 name=lantk src="dc/vote_index.asp" width="190" height=140 scrolling="auto" frameBorder="0"></iframe></td>
</tr>
<tr>
<td height="10"></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center"><SELECT name=Media15>
<OPTION selected>===== Friendly Link =====</OPTION>
<%if dydydy.bof or dydydy.eof then%>
<%else%>
<%do while not dydydy.eof %>
<OPTION value=<%=dydydy("URL")%> target="_self"><%=dydydy("Nclass")%></OPTION>
<%
dydydy.movenext
loop
%>
<%end if%>
</SELECT>
<SCRIPT language=vbs>
sub Media15_onchange()
if Media15.value<>"#" then
window.open Media15.value,""
end if
end sub
</SCRIPT></td>
</tr>
</table></td>
<td width="300" valign="top" class="liner"><table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="85%"><img src="images/index2_02_02_02_01_01.jpg" alt="" /></td>
<td width="15%" align="left"><a href="tj.asp?id=1&a=New products" class="menu">more</a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%if dy.bof or dy.eof then%>
<tr align="center">
<td height="19" class="font">There is no information <font color="#FF608F"> </font></td>
</tr>
<%else%>
<%do while not dy.eof %>
<tr>
<td height="22" align="center" valign="top" background="images/ba.gif" class="font"><table width=277 border=0 cellpadding=0 cellspacing=0>
<tr>
<td valign="middle"><table width=137 border=0 cellpadding=0 cellspacing=0>
<tr>
<td><table width="133" height="112" border="0" cellpadding="0" cellspacing="1" bgcolor="E1E1E1">
<tr>
<td width="133" align="center" bgcolor="#FFFFFF"><a href="products_2.asp?ProdId=<%=dy("ProdId")%>"><im g src="admin/upImg/<%=dy("img1")%>" width="95" height="82" border="0" /></a></td>
</tr>
</table></td>
<td rowspan=2><img src="images/cp_1_1_2.jpg" width=4 height=116 alt=""></td>
</tr>
<tr>
<td><img src="images/cp_1_1_3.jpg" width=133 height=4 alt=""></td>
</tr>
</table></td>
<td><img src="images/cp_1_2.jpg" width=10 height=120 alt=""></td>
<td width="130" valign="top"><table width=130 border=0 cellpadding=0 cellspacing=0>
<tr>
<td height="20" background="images/cp_1_3_1.jpg"><a href="products_2.asp?ProdId=<%=dy("ProdId")%>" class="cp"><%=dy("ProdName")%></a></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="50%">Price:</td>
<td width="50%"><%if dy("PriceList")=< 1 then%>negotiated
<%else%><%=dy("PriceList")%>$<%end if%></td>
</tr>
<tr>
<td>Description:</td>
<td> </td>
</tr>
<tr>
<td colspan="2"><%if len(delHtml(dy("ProdDisctext"))) > 18 then Response.write left(delHtml(dy("ProdDisctext")),18)&"..." else Response.write delHtml(dy("ProdDisctext")) end if%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="130" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="62"><a href="#" onClick="window.open('order/shop.asp?ProdId=<%=dy("ProdId")%>','add','scrollba rs=yes,resizable=no,width=650,height=450')"><img src="images/cp_1_3_3.jpg" alt="Add to cart" width="80" height="19" border="0" /></a></td>
<td width="68"> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<%
dy.movenext
loop
%>
<%end if%>
</table></td>
</tr>
</table>
<table width="100%" height="10" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="85%"><img src="images/index2_02_02_02_02_01.jpg" alt="" width="111" height="14" /></td>
<td width="15%"><a href="tj.asp?id=2&a=Hot products" class="menu">more</a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%if dydy.bof or dydy.eof then%>
<tr align="center">
<td height="19" class="font">There is no information <font color="#FF608F"> </font></td>
</tr>
<%else%>
<%do while not dydy.eof %>
<tr>
<td height="22" align="center" valign="top" background="images/ba.gif" class="font"><table width="277" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="middle"><table width="137" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="133" height="112" border="0" cellpadding="0" cellspacing="1" bgcolor="E1E1E1">
<tr>
<td width="133" align="center" bgcolor="#FFFFFF"><a href="products_2.asp?ProdId=<%=dydy("ProdId")%>">< img src="admin/upImg/<%=dydy("img1")%>" width="95" height="82" border="0" /></a></td>
</tr>
</table></td>
<td rowspan="2"><img src="images/cp_1_1_2.jpg" width="4" height="116" alt="" /></td>
</tr>
<tr>
<td><img src="images/cp_1_1_3.jpg" width="133" height="4" alt="" /></td>
</tr>
</table></td>
<td><img src="images/cp_1_2.jpg" width="10" height="120" alt="" /></td>
<td width="130" valign="middle"><table width="130" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20" background="images/cp_1_3_1.jpg"><a href="products_2.asp?ProdId=<%=dydy("ProdId")%>" class="cp"><%=dydy("ProdName")%></a></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="50%"> Price:</td>
<td width="50%"><%if dydy("PriceList")=< 1 then%>negotiated
<%else%><%=dydy("PriceList")%>$<%end if%></td>
</tr>
<tr>
<td>Description:</td>
<td> </td>
</tr>
<tr>
<td colspan="2"><%if len(delHtml(dydy("ProdDisctext"))) > 18 then Response.write left(delHtml(dydy("ProdDisctext")),18)&"..." else Response.write delHtml(dydy("ProdDisctext")) end if%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="130" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="62"><a href="#" onClick="window.open('order/shop.asp?ProdId=<%=dydy("ProdId")%>','add','scroll bars=yes,resizable=no,width=650,height=450')"><img src="images/cp_1_3_3.jpg" alt="Add to cart" width="80" height="19" border="0" /></a></td>
<td width="68"> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<%
dydy.movenext
loop
%>
<%end if%>
</table></td>
</tr>
</table></td>
<td width="340" align="right" valign="top" class="liner"><table id="Table5" width="96%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" valign="top"><table id="Table6" width="326" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/index2_02_02_03_02_01_01.jpg" alt="" width="326" height="23" border="0" usemap="#Map"></td>
</tr>
<tr>
<td></td>
</tr>
Bookmarks