dmin_editlink.asp QQ空间互踩联盟源码程序asp编程 - ASP源码程序

www.gusucode.com > QQ空间互踩联盟源码程序asp编程 > admin_editlink.asp
    <!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<HTML lang="gb2312" xmlns="http://www.w3.org/1999/xhtml"><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><title>修改用户资料 <%=ChannelName%></title>
<meta http-equiv="content-type" content="text/html;charset=gb2312"/>
<link rel="icon" href="images/favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="images/favicon.ico" type="image/x-icon" />
<meta content=<%=ChannelName%> name=description>
<meta content=<%=ChannelName%> name=Keywords>
<link rel="stylesheet" href="qzonev_com.css" type="text/css"/>
</HEAD>
<BODY style="MARGIN: 0px; TEXT-ALIGN: center">
<%

if session("qzonev_com_admin")<>"OK" then
response.redirect("admin_login.asp")
end if
dim username
username=hx.checkstr(request("username"),12)
dim strerror
dim rs,sql

%>
<!--#include file="top.asp"-->
<%
sub saveedit
dim username,sitename,siteurl,sitelogo,password,pwdconfirm,siteintro,webtype
username=hx.checkstr(request.form("username"),12)
sitename=hx.checkstr(request.form("sitename"),14)
siteurl=hx.checkstr(request.form("siteurl"),100)
sitelogo=hx.checkstr(request.form("sitelogo"),100)
password=hx.checkstr(request.form("password"),16)
pwdconfirm=hx.checkstr(request.form("pwdconfirm"),16)
siteintro=hx.checkstr(request.form("siteintro"),16)
webtype=request.form("webtype")
dim outc,outj,inc,inj,vip,zdate,indate,fromdate
outc=cint(request.form("outc"))
outj=cint(request.form("outj"))
inc=cint(request.form("inc"))
inj=cint(request.form("inj"))
vip=cint(request.form("vip"))
fromdate=cdate(request.form("fromdate"))
zdate=cdate(request.form("dateandtime"))
indate=cdate(request.form("indate"))
'outdate=cdate(request.form("outdate"))

dim blnerror
blnerror=false
if username="" then
blnerror=true
strerror="<li>意外出错，请选择用户名"
else
sql="select * from Qzonev_Com_Link where username='"&username&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,2
if rs.eof then
blnerror=true
strerror="<li>没有该用户"
end if
end if
if sitename="" or siteurl="" or password="" then
blnerror=true
strerror=strerror & "<li>请检查是否有必填信息没有填写"
end if
if hx.blnfilter(sitename) then
blnerror = true
strerror = strerror & "<li>空间名称不能包含某些特殊关键词"
end if
if sitelogo="" then
sitelogo="http://" & hx.BaseUrl & "images/wu.gif"
end if
if not isnumeric(webtype) then
blnerror=true
strerror=strerror & "<li>请正确选择空间类型"
end if
if password<>pwdconfirm then
blnerror=true
strerror=strerror & "<li>两次密码不相同"
end if

if blnerror=true then

response.write strerror
response.write "<p><< <a href=javascript:history.go(-1)>返回上一页 </a> << <a href=admin_manage.asp>返回管理首页</a></p>"

else

rs("outc")=outc
rs("outj")=outj
rs("inc")=inc
rs("inj")=inj
rs("vip")=vip
rs("sitename")=sitename
rs("siteintro")=siteintro
rs("webtype")=webtype
if len(password)<16 then
rs("password")=md5(password,16)
end if
rs("siteurl")=siteurl
rs("sitelogo")=sitelogo
rs("indate")=indate
'rs("outdate")=outdate
rs("fromdate")=fromdate
rs("dateandtime")=zdate
rs.Update
response.write "<p><li>修改成功</p>"
response.write "<p><< <a href=javascript:history.go(-1)>返回上一页 </a> << <a href=admin_manage.asp>返回管理首页</a></p>"

end if
end sub
%>
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1>
<tr>
<td borderColor=#333333 bgColor=#000000 background="images/top_2.jpg"><div align="center"><a href="admin_manage.asp">管理首页</a> | <a href="?action=ListSite">列出所有用户</a> | <a href="?action=Summary">查看统计记录</a> | <a href="?action=ShowLog">查看点击记录</a> | 修改空间信息 | <a href="?action=BatchDelform">批量删除数据</a> | <a href="?action=CompactDB" onClick="return confirm('你确定要压缩吗？')">压缩数据</a> | <a href="?action=init" onClick="return confirm('初始化后，所有数据将清零，你确认要继续吗？')">初始数据</a> | <a href="admin_login.asp?action=exit">退出管理</a></div></td>
</tr>
</table>


<TABLE borderColor=#000000 cellSpacing=0 cellPadding=0 width=950 align=center bgColor=#000000 border=0>
<tr> 
<td> <%
dim action
action=request("action")
select case action
case "saveedit"
call saveedit
case else
call showlist
end select

sub showlist
dim rs
rs=hx.execute("select * from Qzonev_Com_Link where username='"&username&"'")
%> <form action="?username=<%=username%>&Action=saveedit" method="POST">
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=100% align=center bgColor=#000000 border=1>

<tr>
<td bgColor=#000000 borderColor=#333333> <div align="center"><font color="red">*</font> QQ 号 码：</div></td>
<td bgColor=#000000 borderColor=#333333> <%=rs("username")%>
<input name="username" type="hidden" id="username" value="<%=rs("username")%>"> <a target=blank href=tencent://message/?uin=<%=rs("username")%>><img border="0" SRC=http://wpa.qq.com/pa?p=1:<%=rs("username")%>:14 alt="点击这里给我发消息"></a></td>
</tr>


<tr> 
<td bgColor=#000000 borderColor=#333333> <div align="center"><font color="red">*</font> 空间名称：</div></td>
<td bgColor=#000000 borderColor=#333333> 
<input type="text" name="sitename" size="19" maxlength="14" value="<%=rs("sitename")%>" class='inbox0'>&#59265; <a href="http://<%=Replace(rs("siteurl"),"http://","")%>.qzone.qq.com" target=_blank>Qzone</a></td>
</tr>

<tr> 
<td bgColor=#000000 borderColor=#333333> <div align="center"><font color="red">*</font> QQ 确 认：</div></td>
<td bgColor=#000000 borderColor=#333333> <input name="siteurl" type="text" id="siteurl" value="<%=Replace(rs("siteurl"),"http://","")%>" size="50" maxlength="110" dataType="QQ" msg="QQ确认必须是5-9位" class='inbox0'>&#59265; 请再输一遍确认.</td>
</tr>

<tr> 
<td bgColor=#000000 borderColor=#333333> <div align="center"><font color="red">*</font> 管理密码：</div></td>
<td bgColor=#000000 borderColor=#333333> <input name="password" type="password" id="password" value="<%=rs("password")%>" size="20" maxlength="16" class='inbox0'>&#59265; 不能超过16个字符,并牢记密码.</td>
</tr>
<tr> 
<td bgColor=#000000 borderColor=#333333> <div align="center"><font color="red">*</font> 密码确认：</div></td>
<td bgColor=#000000 borderColor=#333333> <input name="pwdconfirm" type="password" id="pwdconfirm" value="<%=rs("password")%>" size="20" maxlength="16" class='inbox0'>&#59265; 请再输一遍确认.</td>
</tr>


<tr> 
<td bgColor=#000000 borderColor=#333333> <div align="center"><font color="red">*</font> 注册时间：</div></td>
<td bgColor=#000000 borderColor=#333333> <input type="text" name="dateandtime" size="20" maxlength="20" value="<%=rs("dateandtime")%>" class='inbox0'>&#59265;</td>
</tr>

<tr> 
<td bgColor=#000000 borderColor=#333333> <div align="center"><font color="red">*</font> 统计时间：</div></td>
<td bgColor=#000000 borderColor=#333333> <input type="text" name="fromdate" size="20" maxlength="20" value="<%=rs("fromdate")%>" class='inbox0'>&#59265;</td>
</tr>

<tr> 
<td bgColor=#000000 borderColor=#333333> <div align="center"><font color="red">*</font> 得票时间：</div></td>
<td bgColor=#000000 borderColor=#333333> <input type="text" name="indate" size="20" maxlength="20" value="<%=rs("indate")%>" class='inbox0'>&#59265;</td>
</tr>

<!--tr> 
<td bgColor=#000000 borderColor=#333333> <div align="center"><font color="red">*</font> 被踩时间：</div></td>
<td bgColor=#000000 borderColor=#333333> <input type="text" name="outdate" size="20" maxlength="20" value="<%=rs("indate")%>" class='inbox0'>&#59265;</td>
</tr-->



<tr> 
<td bgColor=#000000 borderColor=#333333> <div align="center"><font color="red">*</font> 本月得票：</div></td>
<td bgColor=#000000 borderColor=#333333> <input type="text" name="inc" size="20" maxlength="20" value="<%=rs("inc")%>" class='inbox0'>&#59265;票</td>
</tr>

<tr> 
<td bgColor=#000000 borderColor=#333333> <div align="center"><font color="red">*</font> 本月被踩：</div></td>
<td bgColor=#000000 borderColor=#333333> <input type="text" name="outc" size="20" maxlength="20" value="<%=rs("outc")%>" class='inbox0'>&#59265;次</td>
</tr>

<tr> 
<td bgColor=#000000 borderColor=#333333> <div align="center"><font color="red">*</font> 今日得票：</div></td>
<td bgColor=#000000 borderColor=#333333> 
<input type="text" name="inj" size="20" maxlength="20" value="<%=rs("inj")%>" class='inbox0'>&#59265;票</td>
</tr>

<tr> 
<td bgColor=#000000 borderColor=#333333> <div align="center"><font color="red">*</font> 今日被踩：</div></td>
<td bgColor=#000000 borderColor=#333333> <input type="text" name="outj" size="20" maxlength="20" value="<%=rs("outj")%>" class='inbox0'>&#59265;次</td>
</tr>

<tr> 

<tr> 
<td bgColor=#000000 borderColor=#333333> <div align="center"><font color="red">*</font> 是否会员：</div></td>
<td bgColor=#000000 borderColor=#333333> <input type="text" name="vip" size="20" maxlength="20" value="<%=rs("vip")%>" class='inbox0'>&#59265;[0]为普通成员，[1]为黄金会员！</td>
</tr>


<tr>
<td bgColor=#000000 borderColor=#333333> <div align="center"><font color="red">*</font> 空间形象：</div></td>
<td bgColor=#000000 borderColor=#333333> <select name="sitelogo" size="1" id="select5" onChange="document.all.idface.src=options[selectedIndex].value;" class='inbox0'> 
<option value="<%=rs("sitelogo")%>" selected="selected"><%=right(rs("sitelogo"),11)%></option>
<option value= face/01.gif>女(01)</option> <option value= face/02.gif>女(02)</option> <option value= face/03.gif>女(03)</option> <option value= face/04.gif>女(04)</option> <option value= face/05.gif>女(05)</option> <option value= face/06.gif>女(06)</option> <option value= face/07.gif>女(07)</option> <option value= face/08.gif>女(08)</option> <option value= face/09.gif>女(09)</option> <option value= face/10.gif>女(10)</option> <option value= face/11.gif>男(01)</option> <option value= face/12.gif>男(02)</option> <option value= face/13.gif>男(03)</option> <option value= face/14.gif>男(04)</option> <option value= face/15.gif>男(05)</option> <option value= face/16.gif>男(06)</option> <option value= face/17.gif>男(07)</option> <option value= face/18.gif>男(08)</option> <option value= face/19.gifgif>男(09)</option> <option value= face/20.gif>男(10)</option></select>&#59265; 选一个代表您QQ空间形象. <img src='<%=rs("sitelogo")%>' name="idface" width=40 height=40 border=0 id=idface></td>
</tr>





<tr> 
<td bgColor=#000000 borderColor=#333333> <div align="center"><font color="red">*</font> 所在地区：</div></td>
<td bgColor=#000000 borderColor=#333333> <select name="webtype" size="1" class='inbox0'>
<%call hx.listwebtype(rs("webtype"))%>
</select>&#59265; 请选择您的所在地区. 
</td>
</tr>

<tr> 
<td bgColor=#000000 borderColor=#333333> <div align="center"><font color="red">*</font> 密码保护：</div></td>
<td bgColor=#000000 borderColor=#333333><input type="text" name="siteintro" id="siteintro" size="20" value="<%=rs("siteintro")%>" maxlength="4" onKeyUp="value=value.replace(/[^\u4E00-\u9FA5]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\u4E00-\u9FA5]/g,''))" onBlur="value=value.replace(/[^\u4E00-\u9FA5]/g,'')" class='inbox0'></td>
</tr>

<tr> 
<td borderColor=#333333 bgColor=#000000 colspan="6" align="center"> <input type="submit" value=" 确 定 " name="yes" class="ann0"> 
<input name="reset" type="reset" value=" 重 写 " class="ann0"> </td>
</tr>
</table>
</form>
<%end sub%> 


</td>
</tr>
</table>
<!--#include file="under.asp"-->
<%Closedatabase%>
</body>
</html>