?? edit.asp
字號:
<HTML><HEAD><TITLE>中華健康網--免費網站流量分析系統</TITLE>
<META http-equiv=Content-Language content=zh-cn>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<META NAME="Generator" CONTENT="免費統計,計數器,免費計數器,流量統計">
<META NAME="Author" CONTENT="免費統計,計數器,免費計數器,流量統計">
<META NAME="Keywords" CONTENT="免費統計,計數器,免費計數器,流量統計,htm,asp,sql,mssql">
<META NAME="Description" CONTENT="免費統計,計數器,免費計數器,流量統計">
<link rel="stylesheet" href="images/css.css" type="text/css"></HEAD><BODY bgColor=#e1e1e1 topMargin=60>
<TABLE width=569 height=327 border=0 align="center" cellPadding=0 cellSpacing=0
borderColor=#111111 class=ttbb
style="BORDER-RIGHT: 1px dotted; BORDER-TOP: 1px dotted; BORDER-LEFT: 1px dotted; BORDER-BOTTOM: 1px dotted; BORDER-COLLAPSE: collapse">
<TBODY>
<TR>
<TD style="POSITION: relative" width=569 bgColor=#ffffff colSpan=3 height=45><div id="9126" style="position:absolute; left:0px; top:-31px; border-style:none;"><img src="images/logo.gif" width="560" height="78" border="0"></div></TD>
</TR>
<tr align="center">
<td width=569 height=24 colspan=3 bgcolor=#0374b8>
<!--#include file="head.asp" -->
<%if request("view")<>"" then
view=request("view")
url1="?view="&view&"&"
else
url1="?"
end if
%>
<%if session(feiyue)="" then
response.redirect("login.asp")
end if%>
<% function checkuser(fString)
fString=replace(fString,"'","‘")
checkuser = fString
end function
if request.querystring("action")="add" then
vuser1=checkuser(trim(request.form("vuser1")))
vpass=checkuser(trim(request.form("vpass")))
vtitle=checkuser(trim(request.form("vtitle")))
vurl=checkuser(trim(request.form("vurl")))
vemail=checkuser(request.form("vemail"))
vcontent=checkuser(request.form("vcontent"))
startcount=checkuser(trim(request.Form("startcount")))
error1=0
if vpass="" then
error1=1
error2=error2&"密碼必須填寫,"
end if
if len(vpass)>12 then
error1=1
error2=error2&"密碼不要超過12位,"
end if
if vuser1="" then
error1=1
error2="站長名稱必須填寫,"
end if
if len(vuser1)>12 then
error1=1
error2=error2&"站長名稱不要超過12位,"
end if
if vtitle="" then
error1=1
error2=error2&"主頁名稱必須填寫,"
end if
if vurl="" then
error1=1
error2=error2&"主頁地址必須填寫,"
end if
if len(vcontent)>250 then
error1=1
error2=error2&"主頁簡介不要超過250位,"
end if
if not IsNumeric(startcount) then
error1=1
error2=error2&"用本系統前的統計數字必須為數字,"
end if
if error1=1 then
response.redirect(url1&"error2="&error2)
response.end
end if
strSql = "update vcount set startcount="&startcount&",vpass='"&vpass&"',vurl='"&vurl&"',vtitle='"&vtitle&"',vemail='"&vemail&"', vcontent='"&vcontent&"',vbanzhu='"&vuser1&"'where vuser='"&session(feiyue)&"' "
conn.Execute (strsql)
response.redirect(url1&"edit=修改成功")
elseif request.querystring("action")="" then
sql="select * from vcount where vuser='"&session(feiyue)&"'"
set rs=conn.execute(sql)
if not rs.eof then
%>
</td>
</tr>
<TR>
<TD vAlign=top width=569 bgColor=#66ccff height=194 rowSpan=2><P align=center><IMG height=260 src="images/free.gif" width=52 border=0></P></TD>
<TD colSpan=2 valign="top" background="images/bg.gif" bgColor="#66ccff" class=bgimage>
<div align="center">
<table width=95% border=0 align=center cellPadding=0 cellSpacing=0 style="border-collapse: collapse" >
<form method="POST" action="edit.asp<%=url1%>action=add" name="form1" >
<tr valign="baseline">
<td align="right" colspan="2" class=tdc1> <div align="center"><strong><font color="#990000">更改資料</font></strong>
| <a href=logout.asp<%=url%>><strong><font color="#990000">退出登陸</font></strong></a></div></td>
</tr>
<% if request.querystring("error2")<>"" or request.querystring("edit")<>""then%>
<tr valign="baseline">
<td align="right" colspan="2" <%=hColor2%> class=tdc1> <div align="center"><%=request.querystring("error2")%><%=request.querystring("edit")%></div></td>
</tr>
<% end if%>
<tr valign="baseline" >
<td nowrap align="right" class=tdc>*用戶名:</td>
<td class=tdc><%=rs("vuser")%> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right" class=tdc>*密碼:</td>
<td class=tdc>
<input type="password" name="vpass" value="<%=rs("vpass")%>" size="20">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right" class=tdc>Email:</td>
<td class=tdc>
<input type="text" name="vemail" value="<%=rs("vemail")%>" size="25">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right" class=tdc>*主頁名稱:</td>
<td class=tdc>
<input type="text" name="vtitle" value="<%=rs("vtitle")%>" size="25">
</td>
</tr>
<tr valign="baseline" >
<td nowrap align="right" class=tdc>*站長名稱:</td>
<td class=tdc>
<input type="text" name="vuser1" value="<%=rs("vbanzhu")%>" size="20">
</td>
</tr>
<tr>
<td nowrap align="right" class=tdc>主頁簡介:</td>
<td class=tdc>
<textarea rows="5" name="vcontent" cols="40"><%=rs("vcontent")%></textarea>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right" class=tdc>*主頁地址:</td>
<td class=tdc>
<input type="text" name="vurl" value="<%=rs("vurl")%>" size="40">
</td>
</tr>
<tr>
<td width="30%" class=tdc>
<div align="right">用本系統前的統計數字：</div></td>
<td class=tdc>
<input name="startcount" class=tdc size="8" value="<%=rs("startcount")%>">
(用本系統前的統計數字) </td>
</tr>
<tr valign="baseline">
<td nowrap align="right" class=tdc> </td>
<td class=tdc>
<input name="submit" type="submit" class=bdtj value="提交">
</td>
</tr>
</form>
</table>
</div>
</TD>
</TR>
<TR>
<TD align=right width=569 bgColor=#66ccff height=14></TD>
<TD align=right width=569 bgColor=#66ccff height=14><IMG height=20 src="images/bottomr.gif" width=20 border=0></TD>
</TR>
</TBODY>
</TABLE>
<%end if
else
errormsg="參數錯誤，不存在此用戶"
%>
<!--#include file="error.asp" -->
<%end if%>
</BODY></HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -