调用数据库无易做图常显示,也修改不了
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>易做图编辑</title><link href="style.css" type=text/css rel="stylesheet" />
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2"><!--#include file="top.asp"--></td>
</tr>
<%
if request("action")="edit" then
set rst=server.CreateObject("adodb.recordset")
rst.open"select * from Gq_user where username='"&session("username")&"' and password='"&session("password")&"'",conn,1,3
if rst.eof and rst.bof then
response.Write"<script>alert('登录超时,请重新登录!');location.href='login.asp';</script>"
response.End()
end if
Gradeid=dealNum(rst("gradeid"))
set rss=conn.execute("select * from UserGrade where gradeid="&gradeid)
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from Gq_sfdata where id="&dealnum(request("id")),conn,1,3
rs("service")=dealNum(request("service"))
rs("sdate")=request("sdate")
rs("hour")=safestr(request("hour"))
rs("minute")=safestr(request("minute"))
rs("addr")=request("addr")
rs("xingzhi")=request("xingzhi")
rs("qq")=request("qq")
rs("homepage")=request("homepage")
rs("download")=request("download")
rs("BestTime")=Now()
rs("hotTime")=Now()
if (rst("money")-rss("tx"))<0 then
rst("money")=rst("money")
rst.update
response.Write"<script>alert('对不起,你的余额已不足,请冲值后再发布!');location.href='index.asp';</script>"
response.End()
else
rst("money")=(rst("money")-rss("tx"))
end if
rst.update
rs.update
response.Write"<script>alert('修改成功!\n当前余额为"&rst("money")&"元!');location.href='sf_edit.asp';</script>"
rs.close
set rs=nothing
rst.close
set rst=nothing
response.End()
elseif request("action")="del" then
conn.execute"delete * from gq_sfdata where id="&dealnum(request("id"))
response.Write"<script>alert('删除成功!');location.href='sf_edit.asp';</script>"
response.End()
end if
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from gq_sfdata where id="&dealnum(request("id")),conn,1,1
%>
<tr>
<td width="10%" align="center" valign="top"><!--#include file="left.asp"--></td>
<td width="76%" valign="top">
<br>
<FORM name="form" action="?action=edit&id=<%=rs("id")%>" method="post">
<table width=99% border="1" align="center" cellpadding="2" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#E5E5E5" class="tableBorder">
<tr>
<th colspan="2">易做图管理--添加易做图</th>
</tr>
<TR>
<td width="10%" align="right" bgcolor="#FFFFFF" class="TableRow1">游戏分类:</TD>
<td width="90%" bgcolor="#FFFFFF" class="TableRow1">传奇易做图</TD>
</TR>
<TR>
<td width="10%" align="right" bgcolor="#FFFFFF" class="TableRow1">服务器名:</TD>
<td bgcolor="#FFFFFF" class="TableRow1"><%=rs("name")%></TD>
</TR>
<TR>
<td width="10%" align="right" bgcolor="#FFFFFF" class="TableRow1">服务器IP:</TD>
<td bgcolor="#FFFFFF" class="TableRow1"><%=rs("id")%>11</TD>
</TR>
<TR>
<td width="10%" align="right" bgcolor="#FFFFFF" class="TableRow1">开区时间:</TD>
<td bgcolor="#FFFFFF" class="TableRow1"><%=rs("sdate")%>
<SELECT name=hour>
<OPTION value="" selected>开区小时</OPTION>
<OPTION value=09 <%if rs("hour")=09 then response.Write"selected"%>>上午9点</OPTION>
<OPTION value=10 <%if rs("hour")=10 then response.Write"selected"%>>上午10点</OPTION>
<OPTION value=11 <%if rs("hour")=11 then response.Write"selected"%>>上午11点</OPTION>
<OPTION value=12 <%if rs("hour")=12 then response.Write"selected"%>>中午12点</OPTION>
<OPTION value=13 <%if rs("hour")=13 then response.Write"selected"%>>下午13点</OPTION>
<OPTION value=14 <%if rs("hour")=14 then response.Write"selected"%>>下午14点</OPTION>
<OPTION value=15 <%if rs("hour")=15 then response.Write"selected"%>>下午15点</OPTION>
<OPTION value=16 <%if rs("hour")=16 then response.Write"selected"%>>下午16点</OPTION>
<OPTION value=17 <%if rs("hour")=17 then response.Write"selected"%>>下午17点</OPTION>
<OPTION value=18 <%if rs("hour")=18 then response.Write"selected"%>>晚上18点</OPTION>
<OPTION value=19 <%if rs("hour")=19 then response.Write"selected"%>>晚上19点</OPTION>
<OPTION value=20 <%if rs("hour")=20 then response.Write"selected"%>>晚上20点</OPTION>
<OPTION value=21 <%if rs("hour")=21 then response.Write"selected"%>>晚上21点</OPTION>
<OPTION value=22 <%if rs("hour")=22 then response.Write"selected"%>>晚上22点</OPTION>
</SELECT>
<SELECT name=minute>
<OPTION value=00 <%if rs("minute")=00 then response.Write"selected"%>>00分</OPTION>
<OPTION value=30 <%if rs("minute")=30 then response.Write"selected"%>>30分</OPTION>
</SELECT> <font color="#FF0000">*</font></TD>
</TR>
<TR>
<td height="30" colspan="2" align="left" bgcolor="#FFFFFF" class="TableRow1"><INPUT type=submit value= 提交易做图信息 name=btn> <%
set rst=server.CreateObject("adodb.recordset")
rst.open"select * from [Gq_user] where username='"&session("username")&"' and password='"&session("password")&"'",conn,1,3
if rst.eof and rst.bof then
response.Write"<script>alert('登录超时,请重新登录!');location.href='login.asp';</script>"
response.End()
end if
Gradeid=rst("gradeid")
set rss=conn.execute("select * from UserGrade where gradeid="&gradeid)%>
<font color="#FF0000">您的修改时间价格为:<%=rss("tx")%>元一次. <%set rs=server.CreateObject("adodb.recordset")
rs.open"select * from [Gq_user] where username='"&session("username")&"' and password='"&session("password")&"'",conn,1,1
if rs.eof and rs.bof then
response.Write"<script>alert('登录超时,请重新登录!');location.href='login.asp';</script>"
response.End
else
response.Write"您的余额为"&rs("money")&"元"
response.End
end if%></font></TD>
</TR>
</TABLE>
</FORM>
</td>
</tr>
</table>
</body>
</html>
补充:.NET技术 , ASP.NET