📄 changeinfo.asp
字号:
<!-- #include file="conn.asp" -->
<SCRIPT Language=javascript>
<!--
function fucCheckTEL(TEL)
{
var i,j,strTemp;
strTemp="0123456789-()# ";
for (i=0;i<TEL.length;i++)
{
j=strTemp.indexOf(TEL.charAt(i));
if (j==-1)
{
//说明有字符不合法
return 0;
}
}
//说明合法
return 1;
}
function fucCheckPrice(Price)
{
var i,j,strTemp;
strTemp="0123456789";
for (i=0;i<Price.length;i++)
{
j=strTemp.indexOf(Price.charAt(i));
if (j==-1)
{
//说明有字符不合法
return 0;
}
}
//说明合法
return 1;
}
function CheckData2()
{
if (form2.title.value == "")
{
window.alert("标题不能为空!!");
return false;
}
else if (form2.price.value == "")
{
window.alert("价格不能为空!!");
return false;
}
else if (fucCheckPrice(form2.price.value) == 0)
{
window.alert("价格需为整数!!");
return false;
}
else if (form2.intro.value == "")
{
window.alert("内容不能为空!!");
return false;
}
else if (fucCheckTEL(form2.phone.value) == 0)
{
window.alert("电话格式不对!!");
return false;
}
else//通过所有检查
form2.submit(); //送出表单中的数据
}
-->
</SCRIPT>
<%
username=trim(Request.Form("username"))
userpass=trim(Request.Form("userpass"))
if username<>"" and userpass<>"" then
exec_index="select * from [user] where user_name='"&username&"' and user_pass='"&userpass&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec_index,conn,1,3
if not rs.eof then
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
rs("user_ip")=userip
rs("user_lastlogintime")=now()
rs.update
session("user")=username
else
%>
<SCRIPT Language=javascript>
<!--
window.alert("用户名或密码错误!!");
-->
</SCRIPT>
<%
end if
end if
%>
<html>
<head>
<TITLE>中国人民大学二手交易网-发布信息</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<link rel="stylesheet" href="css.css">
<body leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<table width="760" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><!-- #include file="head.asp" --></td>
</tr>
<tr>
<td height="25" colspan="3"><!-- #include file="menu.asp" --></td>
</tr>
<tr valign="top">
<%
if session("user")="" then
%>
<td width="192" height="150">
<!-- #include file="left.asp" --></td>
<%
else
%>
<td width="192" height="150">
<!-- #include file="left_user.asp" --></td>
<%
end if
%>
<td height="570" width="570" rowspan="2" colspan="2">
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from sclass"
rs.open sql,conn,1,1
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("sclass_name"))%>","<%= trim(rs("sclass_parent"))%>","<%= trim(rs("sclass_id"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.form2.sclass.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.form2.sclass.options[document.form2.sclass.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<%
infoid=request.QueryString("id")
if infoid<>"" then
exec_show="select * from info,bclass,sclass where info_id="&infoid&" and info_sclass=sclass_id and info_bclass=bclass_id"
set rs_show=server.createobject("adodb.recordset")
rs_show.open exec_show,conn,1,1
if not rs_show.eof then
%>
<form method="post" action="changeinfo_ok.asp?id=<%=infoid%>" name="form2">
<table width="570" border="0.5" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr>
<td width="79" height="25" align="right"> </td>
<td colspan="2"> </td>
</tr>
<tr>
<td height="25" align="right">种类： </td>
<td colspan="2"> <select name="kind" id="kind">
<option value="供" <%if rs_show("info_kind")="供" then response.write ("selected='yes'") end if%>>出 售</option>
<option value="求" <%if rs_show("info_kind")="求" then response.write ("selected='yes'") end if%>>求 购</option>
</select>
*务必选正确</td>
</tr>
<%
idd=rs_show("bclass_id")
exec_putout1="select * from bclass"
set rs=server.createobject("adodb.recordset")
rs.open exec_putout1,conn,1,1
%>
<tr>
<td height="25" align="right">分类： </td>
<td colspan="2"> <select name="bclass" onChange="changelocation(document.form2.bclass.options[document.form2.bclass.selectedIndex].value)">
<option value='<%=rs_show("bclass_id")%>'"><%=rs_show("bclass_name")%></option>
<%
rs.movenext
do while not rs.eof
%>
<option value='<%=rs("bclass_id")%>'"><%=rs("bclass_name")%></option>
<%
rs.movenext
loop
rs.close
%>
</select>
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from sclass where sclass_parent="&idd
rs.open sql,conn,1,1
%>
<select name="sclass">
<option value='<%=rs_show("sclass_id")%>'"><%=rs_show("sclass_name")%></option>
<%
do while not rs.eof
%>
<option value='<%=rs("sclass_id")%>'"><%=rs("sclass_name")%></option>
<%
rs.movenext
loop
rs.close
%>
</select> </td>
</tr>
<tr>
<td height="25" align="right">标题： </td>
<td colspan="2"><input name="title" type="text" id="title" maxlength="20" value="<%=rs_show("info_title")%>">
*请直接描述产品，请勿使用不雅字眼，亦不用写求或供</td>
</tr>
<tr>
<td height="25" align="right">价格： </td>
<td colspan="2"><input name="price" type="text" id="price" maxlength="5" value="<%=rs_show("info_price")%>" onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))">
元 *请使用整数，求购信息不能确定价格时请写0</td>
</tr>
<tr valign="top">
<td height="135" align="right">内容： </td>
<td width="372"><textarea name="intro" id="intro" cols="70" rows="10"><%=rs_show("info_intro")%></textarea>
</td>
<td width="119" valign="middle">*内容请详细描述您的物品，诸如几成新等等。请注明交易方式、时间、联系方法</td>
</tr>
<tr>
<td height="25" align="right">有效期： </td>
<td colspan="2"> <%=rs_show("info_expiredays")%>
天</td>
</tr>
<tr>
<td height="25" align="right">手机/电话： </td>
<td colspan="2"><input name="phone" type="text" id="phone" maxlength="20" value="<%if rs_show("info_phone")<>"[无]" then response.write rs_show("info_phone") end if%>">
*在内容中注明了其他联系方式，此项可以不填</td>
</tr>
<tr>
<td align="right"> </td>
<td colspan="2"> </td>
</tr>
<tr>
<td></td>
<td height="25" colspan="2" align="left"><input type="button" value="修改信息" onClick="CheckData2()"></td>
</tr>
<tr>
<td align="right"> </td>
<td colspan="2"> </td>
</tr>
<tr>
<td height="25" align="right">提示：</td>
<td colspan="2"> </td>
</tr>
<tr>
<td height="25" align="right">1.</td>
<td colspan="2"> 如您发布信息成功后发现信息有误，请到用户面板中取消该信息</td>
</tr>
<tr>
<td height="25" align="right">2.</td>
<td colspan="2"> 如果该信息已成交，请到用户面板中修改信息状态，防止别人打扰</td>
</tr>
<tr>
<td height="25" align="right"> </td>
<td colspan="2"> </td>
</tr>
<tr>
<td height="25" align="right"></td>
<td colspan="2"> </td>
</tr>
</table>
</form>
<%
end if
else
%>
<table width="500" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr>
<td>错误</td>
<td colspan="2">不存在这个id</td>
</tr>
</table>
<%
end if
rs_show.close
%>
</td>
</tr>
<tr>
<td valign="top">
<!-- #include file="left_bottom.asp" -->
</td>
</tr>
<tr>
<td height="55" colspan="3"><!-- #include file="foot.asp" --></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -