📄 member_del.asp
字号:
</div></td>
</tr>
</table>
</center>
</div>
</center>
</div>
</form>
</td>
</tr>
</table>
</div>
<%end sub
sub edit
%><form name="form1" method="post" action="?action=saveedit" enctype="multipart/form-data">
<%
id=trim(request("id"))
set rs=server.createobject("adodb.recordset")
sql="select * from company where id="&id&" "
rs.open sql,conn,1,1
if not rs.eof then
%>
<div align="center">
<TABLE width="80%"
height=363 border=1 cellPadding=0 cellSpacing=1 bgcolor="#CAD6F4" style="border-collapse: collapse" bordercolor="#7E9FE2">
<TBODY>
<TR>
<TD width="70" class="p12" height="25"><div align="center"><SPAN class=P9-13>用户名：</SPAN></div></TD>
<TD width="344" class="p12" height="25"><SPAN class=P9-13>
<input name="reg_username" type="text" id="reg_username3" value="<%=trim(rs("userid"))%>" size="35" readonly>
<font color="#FF6600">*</font> </SPAN></TD>
</TR>
<TR>
<TD class="p12" height="25"><div align="center"><SPAN class=P9-13>密 码：</SPAN></div></TD>
<TD class="p12" height="25"><SPAN class=P9-13>
<input name="reg_password" type="text" id="reg_password4" value="<%=trim(rs("pwd"))%>" size="35" maxlength="40">
<font color="#FF6600">*</font> </SPAN></TD>
</TR>
<TR>
<TD class="p12" height="25">公司名称：</TD>
<TD class="p12" height="25"><SPAN class=P9-13>
<input name="company" type="text" value="<%=trim(rs("company"))%>" size="35">
<font color="#FF6600">*</font> </SPAN></TD>
</TR>
<TR>
<TD class="p12" height="25"><div align="center">问 题：</div></TD>
<TD class="p12" height="25"><SPAN class=P9-13>
<input name="question" type="text" value="<%=trim(rs("question"))%>" size="35">
<font color="#FF6600">*</font> </SPAN></TD>
</TR>
<TR>
<TD class="p12" height="25"><div align="center">回 答：</div></TD>
<TD class="p12" height="25"><SPAN class=P9-13>
<input name="answer" type="text" value="<%=trim(rs("answer"))%>" size="35">
<font color="#FF6600">*</font> </SPAN></TD>
</TR>
<TR>
<TD class="p12" height="25"><div align="center">手 机：</div></TD>
<TD class="p12" height="25"><SPAN class=P9-13>
<input name="mphone" type="text" value="<%=trim(rs("mphone"))%>" size="35" onKeyUp="this.value=this.value.replace(/\D/gi,'')">
<font color="#FF6600">*</font> </SPAN></TD>
</TR>
<TR>
<TD class="p12" height="25"><div align="center">传 真：</div></TD>
<TD class="p12" height="25"><SPAN class=P9-13>
<input name="fax" type="text" value="<%=trim(rs("fax"))%>" size="35" onKeyUp="this.value=this.value.replace(/\D/gi,'')">
<font color="#FF6600">*</font> </SPAN></TD>
</TR>
<TR>
<TD class="p12" height="25"><div align="center">联系人：</div></TD>
<TD class="p12" height="25"><font color="#006666"><SPAN class=P9-13>
<input name="name" type="text" id="ren3" value="<%=trim(rs("name"))%>" size="35" maxlength="40">
<font color="#FF6600">*</font> </SPAN></font></TD>
</TR>
<TR>
<TD class="p12" height="25"><div align="center"><SPAN class=P9-13>联系电话：</SPAN></div></TD>
<TD class="p12" height="25"><FONT color=#006666><SPAN class=P9-13>
<input name="tel" type="text" id="tel3" value="<%=trim(rs("phone"))%>" size="35" onKeyUp="this.value=this.value.replace(/\D/gi,'')">
<font color="#FF6600">*</font> </SPAN></FONT></TD>
</TR>
<TR>
<TD class="p12" height="25"><div align="center"><SPAN class=P9-13>电子邮箱：</SPAN></div></TD>
<TD class="p12" height="25"><FONT color=#006666><SPAN class=P9-13>
<input name="email" type="text" id="email3" value="<%=trim(rs("email"))%>" size="35" maxlength="40">
</SPAN></FONT></TD>
</TR>
<TR>
<TD class="p12" height="25"><div align="center"><SPAN class=P9-13>联系地址： </SPAN></div></TD>
<TD class="p12" height="25"><FONT color=#006666><SPAN class=P9-13>
<input name="address" type="text" id="address3" value="<%=trim(rs("address"))%>" size="40" maxlength="50">
</SPAN></FONT></TD>
</TR>
<TR>
<TD class="p12" height="25"><div align="center"><SPAN class=P9-13>个人主页：</SPAN></div></TD>
<TD class="p12" height="25"><FONT color=#006666><SPAN class=P9-13>
<input name="url" type="text" id="http3" value="<%=trim(rs("url"))%>" size="40" maxlength="50">
</SPAN></FONT></TD>
</TR>
<TR>
<TD height="25"><div align="center">公司简介：</div></TD>
<TD height="25">
<textarea name="info" cols="40" rows="5"><%=bbHTMLDecode(rs("info"))%></textarea>
</TD>
</TR>
<TR>
<TD height="25">会员类型：</TD>
<TD height="25"><%strlx=rs("reg_type")%><%if strlx=1 then%>中介<%else%>个人<%end if%></TD>
</TR><%if strlx=1 then%>
<TR>
<TD height="25">中介状态：</TD>
<TD height="25"><%zjzt=rs("zj")%><%if zjzt="1" then%><font color="#0000FF">已审</font><%end if%><%if zjzt="-1" then%><font color="#FFFF00">申请中</font><%end if%><%if zjzt="0" then%><font color="#FF0000">未审</font><%end if%></TD>
</TR>
<TR>
<TD height="25">中介LOGO：</TD>
<TD height="25"><%
oldpic=rs("zjlogo")
if oldpic<>"" then%><input name="oldpic" type="hidden" value="<%=oldpic%>"><img border="0" src="../uppic/zjlogo/<%=oldpic%>"><br><%end if%><input name="pic" type="file"> <br>
无图请留空,建议图片尺寸100*60,文件不大于<font color="#FF0000"><%=1048576/1024%></font>K
</TD>
</TR>
<%end if%>
<TR>
<TD height="25"><div align="center">排行位置：</div></TD>
<TD height="25"><SPAN class=P9-13>
<FONT color=#006666>
<input name="place" type="text" id="place" value="<%=trim(rs("place"))%>" size="5" maxlength="5" onKeyUp="this.value=this.value.replace(/\D/gi,'')"></FONT> <FONT color=#006666>（只能填写数字且不能为空，值越大，排在越前面）</FONT></SPAN></TD>
</TR>
<TR>
<TD rowspan="3" height="25">
<p align="center">操作：</TD>
<TD height="25"><input name="ismember" type="checkbox" id="ismember" value="1" <%if trim(rs("ismember"))="1" then response.write "checked" end if%>>
批准成为会员
<input name="id" type="hidden" id="id" value="<%=trim(rs("id"))%>">
</TD>
</TR><%if strlx=1 then%>
<TR>
<TD><input name="zj" type="checkbox" id="zj" value="1" <%if trim(rs("zj"))="1" then response.write "checked" end if%>>
批准加入中介联盟</TD>
</TR><TR>
<TD><input name="indexzj" type="checkbox" id="indexzj" value="1" <%if trim(rs("indexzj"))="1" then response.write "checked" end if%>>
设为首页推荐中介联盟</TD>
</TR><%end if%>
</TBODY>
</TABLE>
</div>
<div align="center">
<%
end if
%>
<br>
<input name="Submit" type="submit" id="Submit2" value="修改">
</div>
</form><%
end sub
sub del
ids=split(request("id"),",")
for i=0 to ubound(ids)
tt=ids(i)
set rs=server.createobject("adodb.recordset")
sql="select * from company where id="&tt&""
rs.open sql,conn,1,3
if not rs.eof then
reguser=trim(rs("userid"))
end if
rs.delete
rs.update
rs.close
set rs=nothing
'conn.execute "delete from zhaoping where reguser='"®user&"'"
'conn.execute "delete from gongqiu where reguser='"®user&"'"
'conn.execute "delete from shopdetail where userid='"®user&"'"
'conn.execute "delete from hyedetail where loginid='"®user&"'"
'conn.execute "delete from images where userid='"®user&"'"
'conn.execute "delete from meet where userid='"®user&"'"
'conn.execute "delete from mtex where userid='"®user&"'"
next
response.redirect "member_del.asp"
end sub
sub saveedit
Server.ScriptTimeout=999
'建立上传对象
dim request2
set request2=New UpLoadClass
request2.TotalSize=upload_t
request2.MaxSize =upload_m
'允许上传的格式
request2.FileType =uploadlx
'上传路径
request2.SavePath= "../uppic/zjlogo/"
request2.open
pic=request2.Form("pic")
oldpic=request2.Form("oldpic")
id=trim(request2.Form("id"))
ismember=trim(request2.Form("ismember"))
if ismember="" then
ismember=0
end if
place=trim(request2.Form("place"))
if place = "" then
place = 0
end if
strzj=trim(request2.Form("zj"))
if strzj = "" then
strzj = 0
end if
indexzj=trim(request2.Form("indexzj"))
if indexzj= "" then
indexzj= 0
end if
'***************************判断上传
if request2.Error=4 then
response.write"<SCRIPT language=JavaScript>alert('图片大小超过限制，上传失败！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
end if
if request2.Error=2 then
response.write"<SCRIPT language=JavaScript>alert('类型有误！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
end if
if pic<>"" then
if oldpic<>"" then
Call fy_DelFiles(request2.SavePath&oldpic)
end if
sqlstr="update company set zj="&strzj&",zjlogo='"&pic&"' where id="&id&""
conn.execute sqlstr
sql="update company set indexzj='"&indexzj&"',zj='"&strzj&"',ismember="&ismember&",place="&place&",pwd='"&request2.Form("reg_password")&"',company='"&request2.Form("company")&"',question='"&request2.Form("question")&"',answer='"&request2.Form("answer")&"',mphone='"&request2.Form("mphone")&"',fax='"&request2.Form("fax")&"',name='"&request2.Form("name")&"',phone='"&request2.Form("tel")&"',email='"&request2.Form("email")&"',address='"&request2.Form("address")&"',url='"&request2.Form("url")&"',info='"&request2.Form("info")&"' where id="&id&""
conn.execute sql
else
sqlstr="update company set zj="&strzj&" where id="&id&""
conn.execute sqlstr
sql="update company set indexzj='"&indexzj&"',zj='"&strzj&"',ismember="&ismember&",place="&place&",pwd='"&request2.Form("reg_password")&"',company='"&request2.Form("company")&"',question='"&request2.Form("question")&"',answer='"&request2.Form("answer")&"',mphone='"&request2.Form("mphone")&"',fax='"&request2.Form("fax")&"',name='"&request2.Form("name")&"',phone='"&request2.Form("tel")&"',email='"&request2.Form("email")&"',address='"&request2.Form("address")&"',url='"&request2.Form("url")&"',info='"&request2.Form("info")&"' where id="&id&""
conn.execute sql
end if
response.redirect "member_del.asp"
end sub
closedataconn%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -