?? sechand.asp
字號:
<title>二手市場</title>
<head>
</HEAD>
<!--#include file="top.asp"-->
<!--#include file="load.asp"--> <!--#include file="Inc/SchoolSelect.asp"-->
<!--#include file="Inc/getSchool.asp"-->
<%
title = Request.form("title")
author = Request.form("author")
Nclassid = Request.QueryString("cid")
classid = Request.QueryString("classid")
lx = Request.form("lx")
dq = Request.form("dq")
jx = Request.form("jx")
id = Request.QueryString("id")
cid = Request.QueryString("cid")
If Not(isNumeric(classid)) Then
Response.Write "非法地址~"
Response.End
End If
if id<>""then
If Not(isNumeric(id)) Then
Response.Write "非法地址~"
Response.End
End If
end if
If Not(isNumeric(cid)) Then
Response.Write "非法地址~"
Response.End
End If
'-----修改每頁顯示個數 Start--------
const MaxPerPage=25
'-----修改每頁顯示個數 End --------
dim totalPut
dim CurrentPage
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" width=173> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class=th align=center>會 員 登 陸</td>
</tr>
</table><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25"> <div align="center">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="96%">
<tr>
<td>
</td>
</tr>
<tr>
<td height="42" width="168"> <%
if session("user_id")<>empty then
call load2()
else
call load1()
end if
%></td>
</tr>
</table>
</div></td>
</tr>
</table> <%
if id <> "" then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class=th align=center><div align="center">
搜 索 寶 貝</div></td>
</tr>
</table><%
SqlStr = "Select Unid,Classname from 2s_class where flag = "&id&" order by orderflag asc"
set RsStr = conn.execute(SqlStr)
if not RsStr.eof then
do while not RsStr.eof
for i = 1 to 2
SqlStrs = "SELECT Nclassid, Count(Nclassid) FROM 2s_list where Nclassid ="& RsStr(0) &" GROUP BY Nclassid"
set RsStrs = conn.execute(SqlStrs)
if not RsStrs.eof then
nclassids="("&RsStrs(1)&")"
RsStrs.close : set RsStrs = nothing
else
nclassids="(0)"
end if
Response.write "<a href=sechand.asp?cid="& RsStr(0) &"&id="& id &">" &RsStr(1) & "</a><font color=#CCCCCC>" &nclassids& "</font> "
RsStr.movenext
if RsStr.eof then exit for
next
Response.write "<br>"
loop
else
Response.write ""
end if
RsStr.close
end if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<td class=th align=center>搜 索 寶 貝</td>
</table>
<form name="form1" method="post" action="sechand.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>類型:
<select name="lx" id="select4">
<option value="">選擇</option>
<option value="1">出售</option>
<option value="2">求購</option>
<option value="3">出租</option>
<option value="4">求租</option>
<option value="5">求職</option>
<option value="6">招聘</option>
</select> </td>
</tr> <tr>
<td>學校:
<select name="dq" id="select5" size="1">
<%=schoolselect%> </select></td>
</tr>
<tr>
<td>物品:
<input name="title" type="text" id="title" class=input2 size="15"></td>
</tr>
<tr>
<td><div align="center">
<input type=submit value=提交 name=Submit2 class=input2>
<input type=reset value=重置 name=Submit3 class=input2>
</div></td>
</tr>
</table>
</form>
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<td class=th align=center>熱 門 寶 貝</td> <tr>
<td>
<%Call Qcdn.Toplist2s("10","hits",id)%>
</td>
</tr>
</table>
</div></td>
<TD vAlign=top class=line></td>
<td valign="top">
<div align="center">
<TABLE cellspacing="1" class="tableborder1">
<tr >
<td align="center" class=th>狀態</td>
<td align="center" class=th>類型</td>
<td width="39%" class=th>信息標題</td>
<td align="center" class=th><div align="center">所在地點</div></td>
<td align="center"class=th >發布時間</td>
<td align="center" class=th>狀態</td>
<td align="center" class=th>人氣</td>
</tr>
<%
SqlT = "Select top 10 * from 2s_list where sxs = 0 and tops= 1 order by Intime desc,Title"
Set Rst = Conn.execute(SqlT)
if Rst.eof and Rst.bof then
Response.write ""
else
do while not Rst.eof
%>
<tr>
<td width="6%" class="tablebody1" > <div align="center"><img src="images/2s2.gif"></div></td>
<td width="9%" class="tablebody1" > <div align="center">
<%
Select Case rst("lx")
Case "1"
response.write "<font color=""#008000"">[出售]</font>"
Case "2"
response.write "<font color=""#FF00FF"">[求購]</font>"
Case "3"
response.write "<font color=""#008000"">[出租]</font>"
Case "4"
response.write "<font color=""#FF00FF"">[求租]</font>"
Case "5"
response.write "<font color=""#ff0000"">[求職]</font>"
Case "6"
response.write "<font color=""#ff0000"">[招聘]</font>"
Case Else
response.write "<font color=""#FF00FF"">[其它]</font>"
End Select
%>
</div></td>
<td class="tablebody1" width="39%" ><a href="show.asp?id=<%= id %>&Unid=<%= rst("s_id") %>"><%= left(rst("title"),16) %></a></td>
<td width="16%" class="tablebody1"><div align="center"><%=GetSchool(Rst("dq"))%></div></td>
<td width="11%" class="tablebody1"> <div align="center"><%=FormatDateTime(rst("Intime"),vbshortdate)%></div></td>
<td width="11%" class="tablebody1" > <div align="center">
<%
Select Case rst("jx")
Case "0"
response.write "<font color=""#008000"">[未完]</font>"
Case "1"
response.write "<font color=""#FF00FF"">[完成]</font>"
End Select
%>
</div></td>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -