?? view_info.asp
字號:
End Select
else
Select Case strjb
Case "0"
strInfoClassa = "<font color=#0000ff>普通企業(yè)會員</font>"
strgg="<img border=0 src=images/jf_null.gif alt=普通企業(yè)會員><a href=hy/company1.asp?cid="&strgquser&" target=_blank><font color=#2969AD>逛逛掌柜的店鋪</font></a>"
Case "-1"
strInfoClassa = "<font color=#0000ff><b>普通企業(yè)會員</b></font>"
strgg="<img border=0 src=images/jf_null.gif alt=普通企業(yè)會員><a href=hy/company1.asp?cid="&strgquser&" target=_blank><font color=#2969AD>逛逛掌柜的店鋪</font></a>"
Case "1"
strInfoClassa = "<font color=#FF0000><b>收費企業(yè)會員</b></font>"
strgg="<img border=0 src=images/jf_shell.gif alt=收費企業(yè)會員><a href=hy/company1.asp?cid="&strgquser&" target=_blank><font color=#2969AD>逛逛掌柜的店鋪</font></a>"
Case else
strInfoClassa = "<font color=#008080>游客發(fā)布</font>"
strgg="<a href=RegMember target=_blank><font color=#2969AD>免費注冊 免費開店</font></a>"
End Select
end if
Response.Write ""&strInfoClassa&""
pic=rdsInfo("pic")
%></td>
<td width="26%" height="18" valign="middle">
<%=strgg%></td>
<td width="37%" height="104" rowspan="11" align="center">
<%if InStr(pic,"OpenFile01.asp?")>0 or InStr(pic,".jpg")>0 or InStr(pic,".gif")>0 or InStr(pic,".bmp")>0 or InStr(pic,".png")>0 or InStr(pic,".bmp")>0 then%>
<a href="<%=pic%>" target="_blank">
<img border="0" src="<%=pic%>" width="177" height="112" alt="<% = rdsInfo("Topic")%>" style="border: 1px solid #C0C0C0; padding: 1px"></a>
<%else%><img border="0" src="images/NoPic2.jpg" width="135" height="112"><%end if%>
<%end if%>
</td>
</tr><tr>
<td width="16%" height="1" background="images/dotline.gif"></td>
<td width="47%" height="1" background="images/dotline.gif" colspan="2"></td>
</tr><tr>
<td height="9" align="right">用 戶 IP：</td>
<td height="9" colspan="2"><FORM METHOD=POST ACTION="http://www.fyasp.com/ip/Look_Ip.asp?Action=1" target="_blank" name="ipform" style="line-height: 100%; margin-top: 0; margin-bottom: 0"><input type="text" name="IpStr" size="15" value="<%= trim(rdsInfo("ip"))%>" style="border: 1px solid #FFFFFF; background-color: #FFFFFF"><input type="submit" value=" 查看ip " title="通過查看發(fā)布人IP，可以判斷信息的可信度" class="button"> <INPUT TYPE="hidden" name="action" value="2"></FORM></td>
</tr><tr>
<td width="16%" height="1" background="images/dotline.gif"></td>
<td width="47%" height="1" background="images/dotline.gif" colspan="2"></td>
</tr>
<tr>
<td width="16%" height="18" align="right">聯(lián) 系 人：</td>
<td width="47%" height="18" colspan="2"> <% = rdsInfo("ContactMan")%></td>
</tr><tr>
<td width="16%" height="1" background="images/dotline.gif"></td>
<td width="47%" height="1" background="images/dotline.gif" colspan="2"></td>
</tr><tr>
<td height="18" align="right">心動價格：</td>
<td height="18"> <%if rdsInfo("jg")<>"" and rdsInfo("jg")<>"0" then%><font color="#FF0000"><% = rdsInfo("jg")%></font> 元<%else%>面議<%end if%></td>
<td height="18">剩余時間：<%=sysj%></td>
</tr><tr>
<td width="16%" height="1" background="images/dotline.gif"></td>
<td width="47%" height="1" background="images/dotline.gif" colspan="2"></td>
</tr>
<tr>
<td height="18" align="right">郵 編：</td>
<td height="18" colspan="2"> <% = rdsInfo("Postalcode")%></td>
</tr><tr>
<td width="16%" height="1" background="images/dotline.gif"></td>
<td width="47%" height="1" background="images/dotline.gif" colspan="2"></td>
</tr>
<tr>
<td height="18" align="right">電 話：</td>
<td height="18" colspan="2"> <% = rdsInfo("Tel")%></td>
</tr><tr>
<td width="100%" height="1" background="images/dotline.gif" colspan="4"></td>
</tr>
<tr>
<td height="18" align="right">面向地區(qū)：</td>
<td height="18" colspan="3"> <a target="_blank" href="list.asp?dq=<% = rdsInfo("InfoAdd")%>"><% = rdsInfo("InfoAdd")%></a>
<a target="_blank" href="list.asp?sdq=<% = rdsInfo("smalldq")%>"><% = rdsInfo("smalldq")%></a></td>
</tr><tr>
<td width="100%" height="1" background="images/dotline.gif" colspan="4"></td>
</tr>
<%if rdsInfo("Fax") <> "" then%>
<tr>
<td height="18" align="right">傳 真：</td>
<td height="18" colspan="3"> <% = rdsInfo("Fax")%></td>
</tr><tr>
<td width="100%" height="1" background="images/dotline.gif" colspan="4"></td>
</tr>
<%
end if
if rdsInfo("Homepage") <> "" then
%>
<tr>
<td height="18" align="right">網(wǎng)站網(wǎng)址：</td>
<td height="18" colspan="3"> <a href="<% = rdsInfo("Homepage")%>" target="_blank" class="links"><% = rdsInfo("Homepage")%></a></td>
</tr><tr>
<td width="100%" height="1" background="images/dotline.gif" colspan="4"></td>
</tr>
<%end if
if rdsInfo("qq") <> "" then
%>
<tr>
<td height="18" align="right">騰 訊 QQ：</td>
<td height="18" colspan="3"> <a target="blank" href="http://wpa.qq.com/msgrd?V=1&Uin=<% = rdsInfo("qq")%>&Site=<% = strSiteName%>&Menu=yes">
<img alt="點擊即可直接咨詢" src="images/qq.gif" border="0"><% = rdsInfo("qq")%></a></td>
</tr><tr>
<td width="100%" height="1" background="images/dotline.gif" colspan="4"></td>
</tr>
<%end if%><%if rdsInfo("Add") <> "" then%>
<tr>
<td height="18" align="right">聯(lián)系地址：</td>
<td height="18" colspan="3"> <% = rdsInfo("Add")%></td>
</tr><tr>
<td width="100%" height="1" background="images/dotline.gif" colspan="4"></td>
</tr><%end if%><%if rdsInfo("Email") <> "" then%>
<tr>
<td height="9" align="right">電子郵件：</td>
<td height="9" colspan="3"> <a href="#" onClick="window.open('xinxi_mail.asp?email=<%= trim(rdsInfo("Email"))%>&id=<% =intInfoKey%>','發(fā)送郵件','status=yes,scrollbars=yes,resizable=yes,width=380,height=365')"><img border="0" src="images/mail.gif"></a><span lang="en-us">
<A href="javascript:window.external.addfavorite('http://<% =request.servervariables("server_name")%><%=request.servervariables("url")%>?id=<%=intInfoKey%>','<%=bt%>-<% =strSiteName%>')">
<img height="20" src="images/wy.gif" width="120" border="0"></a></span></td>
</tr><tr>
<td width="100%" height="1" background="images/dotline.gif" colspan="4"></td>
</tr><%end if%>
<tr>
<td width="100%" height="7" colspan="4"></td>
</tr>
<tr>
<td width="100%" height="10" colspan="4"><table cellSpacing="0" cellPadding="0" width="100%" border="0">
<SCRIPT language=JavaScript>
<!--
function checkdata(objForm)
{
if (objForm.searchkeyword.value == "" || objForm.searchkeyword.value == "13")
{
alert("請輸入手機號碼.");
objForm.searchkeyword.focus();
return false;
}
var temp = objForm.searchkeyword.value;
if (temp.length >= 7)
{
return true;
} else {
alert("手機號碼不完整！");
objForm.searchkeyword.focus();
return false;
}
return true;
}
//-->
</SCRIPT>
<form name="simcardsearch" onsubmit="return checkdata(this);" method="post" target="_blank" action="http://www.imobile.com.cn/search2005.php">
<tr>
<td align="right" width="35%"><b>手機號碼所在地查詢：</b></td>
<td align="middle" width="36%">
<input id="searchkeyword" size="24" name="searchkeyword">
</td>
<td width="29%">
<input type="image" height="20" width="37" src="images/chaxun.gif" border="0" name="imageField2"></td>
</tr>
</form>
</table>
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
<form method="post" target="_blank" action="http://www.fyasp.com/ip/Look_Ip.asp?Action=1">
<tr>
<td align="right" width="35%"><b>IP地址所在地查詢：</b></td>
<td align="middle" width="36%">
<input onblur="if (this.value =='') this.value='請輸入IP地址'" onmouseover="this.focus()" onfocus="this.select()" onclick="if (this.value=='請輸入IP地址') this.value=''" size="24" value="<%= trim(rdsInfo("ip"))%>" name="IpStr">
</td>
<td width="29%">
<input type="image" height="20" width="37" src="images/chaxun.gif" border="0" name="imageField3"></td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td width="100%" height="10" colspan="4"></td>
</tr>
<tr>
<td width="100%" height="2" class="F16" colspan="4" bgcolor="#DBF3FD"></td>
</tr>
<tr>
<td width="100%" height="19" class="F16" colspan="4" bgcolor="#C5EDFC">
<span style="font-size: 9pt">信息內(nèi)容：</span></td>
</tr>
<tr>
<td width="100%" height="81" class="F16" colspan="4" bgcolor="#EFFBFF"><span style="font-size: 9pt"><% = rdsInfo("Content")%></span></td>
</tr>
<tr>
<td width="100%" height="10" colspan="4"></td>
</tr>
<tr>
<td width="100%" height="10" colspan="4"><table style="font-size: 12px; margin-top: 5px" cellSpacing="0" cellPadding="0" width="575" border="0">
<tr style="font-size: 12px">
<td height="135" style="font-size: 12px">
<table cellSpacing="0" cellPadding="0" width="284" align="right" background="images/table-bg.gif" border="0" style="font-size: 12px">
<tr style="font-size: 12px">
<td width="6" height="58" rowSpan="3" style="font-size: 12px">
<img height="135" src="images/table-left.gif" width="6"></td>
<td vAlign="top" height="23" style="font-size: 12px">
<img height="20" src="images/table-logo4.gif" width="7">
<strong>
<font color="#9933ff">最新加入店鋪</font>
</strong> <a target="_blank" href="hy"><img height="12" src="images/more1.gif" width="39" border="0"></a></td>
<td width="5" rowSpan="3" style="font-size: 12px">
<img height="135" src="images/table-right.gif" width="5"></td>
</tr>
<tr style="font-size: 12px">
<td width="280" height="89" style="font-size: 12px">
<%
set rs_hy=server.createobject("adodb.recordset")
sqlhy="select top 6 MemberKey,CompanyName,CreateTime from Dat_Member where State=0 and MemberType=2 and mb='1' order by MemberKey desc"
rs_hy.open sqlhy,conn,1,1
do while not rs_hy.eof %>·<a target="_blank" href="hy/company1.asp?cid=<%=rs_hy("MemberKey")%>"><%=leftt(rs_hy("CompanyName"),40)%></a> <% =FormatTime(rs_hy("CreateTime"),4)%><br>
<% rs_hy.movenext
loop
rs_hy.close
set rs_hy=nothing
%>
</td>
</tr>
<tr style="font-size: 12px">
<td height="12" style="font-size: 12px">
<div align="center">
<span class="hui13"></span></div>
</td>
</tr>
</table>
</td>
<td height="135" style="font-size: 12px">
<table cellSpacing="0" cellPadding="0" width="284" align="right" background="images/table-bg.gif" border="0" style="font-size: 12px">
<tr style="font-size: 12px">
<td width="6" height="58" rowSpan="3" style="font-size: 12px">
<img height="135" src="images/table-left.gif" width="6"></td>
<td vAlign="top" height="24" style="font-size: 12px">
<img height="20" src="images/table-logo12.gif" width="7">
<strong>
<font color="#993366">最新熱門店鋪</font></strong>
<a target="_blank" href="hy"><img height="12" src="images/more1.gif" width="39" border="0"></a></td>
<td width="6" rowSpan="3" style="font-size: 12px">
<img height="135" src="images/table-right.gif" width="5"></td>
</tr>
<tr style="font-size: 12px">
<td width="272" height="89" style="font-size: 12px">
<%
set rs_hy=server.createobject("adodb.recordset")
sqlhy="select top 6 MemberKey,CompanyName,CreateTime from Dat_Member where State=0 and MemberType=2 and mb='1' order by showcount desc"
rs_hy.open sqlhy,conn,1,1
do while not rs_hy.eof%>·<a target="_blank" href="hy/company1.asp?cid=<%=rs_hy("MemberKey")%>"><%=leftt(rs_hy("CompanyName"),40)%></a> <% =FormatTime(rs_hy("CreateTime"),4)%><br>
<% rs_hy.movenext
loop
rs_hy.close
set rs_hy=nothing
%></td>
</tr>
<tr style="font-size: 12px">
<td height="5" style="font-size: 12px">
<div align="center">
<span class="hui13"></span></div>
</td>
</tr>
</table>
</td>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -