asp问题,请看源代码,急,在线等
<%@Language=VBScript%><%Response.Expires=0%><%session.timeout=30%><!--#includevirtual...
<%@ Language=VBScript %>
<% Response.Expires=0 %>
<% session.timeout=30
%>
<!--#include virtual="/conn.asp" -->
<head>
<LINK href="/cssfile/1.css" rel="stylesheet">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>公司网站信息维护界面</title>
</head>
<%
if Request.Form("button")="增加" then
Response.Write "11111"
'Response.end
string wzmc=request.Form("textwzmc");
string wzdz=request.Form("textwzdz");
string wzsm=request.Form("textwzsm");
Response.Write wzmc
Response.Write wzdz
Response.Write wzsm
sql = "insert into WZXXB(wzmc,wzdz,wzsm) values('" + wzmc + "','" + wzdz + "','" + wzsm + "')";
cmd.commandtext=sql
cmd.execute
Response.Write "添加成功"
end if
if Request.Form("button")="修改" then
Response.Write "xiugai"
string wzmc=Request.Form("textwzmc");
string wzdz=Request.Form("textwzdz");
string wzsm=Request.Form("textwzsm");
sql="update WZXXB set wzdz='"+wzdz+"',wzsm='"+wzsm+"'where WZMC='"+wzmc+"'";
cmd.commandtext=sql
cmd.execute
Response.Write "修改成功"
end if
if Request.Form("button")="删除" then
Response.Write "shanchu"
string wzmc=Request.Form("textwzmc");
sql = "delete from wzxxb where wzmc = '" + wzmc + "'";
cmd.commandtext=sql
cmd.execute
Response.Write "删除成功"
end if
%>
<body>
<form method="post" name="weihu" action="">
<table width="400" border="0" align="center">
<caption align="top">
网站基本信息维护
</caption>
<tr>
<td width="78" height="79">网站名称</td>
<td colspan="2"><label>
<input name="textwzmc" type="text" id="textwzmc">
</label></td>
</tr>
<tr>
<td height="84">网站地址</td>
<td colspan="2"><label>
<input name="textwzdz" type="text" id="textwzdz">
</label></td>
</tr>
<tr>
<td height="91">网站说明</td>
<td colspan="2"><label>
<textarea name="textwzsm" id="textwzsm"></textarea>
</label></td>
</tr>
<tr>
<td height="63"><label>
<div align="right">
<input name="button" type="submit" value="增加">
</div>
</label></td>
<td width="142"><label>
<div align="center">
<input name="button" type="submit" value="修改">
</div>
</label></td>
<td width="158"><label>
<div align="center">
<input name="button" type="submit" value="删除">
</div>
</label></td>
</tr>
</table>
</form>
</body>
</html>
连基本的第一行测试输出都不能执行,更别说数据库操作了,请问我这是哪里出错了啊。
现在能找到button了, 但是不知道执行完SQL语句是否成功了,有什么方法能得到他的返回值呢。
下面那个说的不是asp把,sql = "insert into WZXXB(wzmc,wzdz,wzsm) values('" + textwzmc + "','" + textwzdz + "','" + textwzsm + "')"
cmd.commandtext=sql
result=cmd.execute
if result > 0 then
Response.Write "增加成功"
else
Response.Write "增加失败"
end if
根本不行,谁还有好方法啊 展开
<% Response.Expires=0 %>
<% session.timeout=30
%>
<!--#include virtual="/conn.asp" -->
<head>
<LINK href="/cssfile/1.css" rel="stylesheet">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>公司网站信息维护界面</title>
</head>
<%
if Request.Form("button")="增加" then
Response.Write "11111"
'Response.end
string wzmc=request.Form("textwzmc");
string wzdz=request.Form("textwzdz");
string wzsm=request.Form("textwzsm");
Response.Write wzmc
Response.Write wzdz
Response.Write wzsm
sql = "insert into WZXXB(wzmc,wzdz,wzsm) values('" + wzmc + "','" + wzdz + "','" + wzsm + "')";
cmd.commandtext=sql
cmd.execute
Response.Write "添加成功"
end if
if Request.Form("button")="修改" then
Response.Write "xiugai"
string wzmc=Request.Form("textwzmc");
string wzdz=Request.Form("textwzdz");
string wzsm=Request.Form("textwzsm");
sql="update WZXXB set wzdz='"+wzdz+"',wzsm='"+wzsm+"'where WZMC='"+wzmc+"'";
cmd.commandtext=sql
cmd.execute
Response.Write "修改成功"
end if
if Request.Form("button")="删除" then
Response.Write "shanchu"
string wzmc=Request.Form("textwzmc");
sql = "delete from wzxxb where wzmc = '" + wzmc + "'";
cmd.commandtext=sql
cmd.execute
Response.Write "删除成功"
end if
%>
<body>
<form method="post" name="weihu" action="">
<table width="400" border="0" align="center">
<caption align="top">
网站基本信息维护
</caption>
<tr>
<td width="78" height="79">网站名称</td>
<td colspan="2"><label>
<input name="textwzmc" type="text" id="textwzmc">
</label></td>
</tr>
<tr>
<td height="84">网站地址</td>
<td colspan="2"><label>
<input name="textwzdz" type="text" id="textwzdz">
</label></td>
</tr>
<tr>
<td height="91">网站说明</td>
<td colspan="2"><label>
<textarea name="textwzsm" id="textwzsm"></textarea>
</label></td>
</tr>
<tr>
<td height="63"><label>
<div align="right">
<input name="button" type="submit" value="增加">
</div>
</label></td>
<td width="142"><label>
<div align="center">
<input name="button" type="submit" value="修改">
</div>
</label></td>
<td width="158"><label>
<div align="center">
<input name="button" type="submit" value="删除">
</div>
</label></td>
</tr>
</table>
</form>
</body>
</html>
连基本的第一行测试输出都不能执行,更别说数据库操作了,请问我这是哪里出错了啊。
现在能找到button了, 但是不知道执行完SQL语句是否成功了,有什么方法能得到他的返回值呢。
下面那个说的不是asp把,sql = "insert into WZXXB(wzmc,wzdz,wzsm) values('" + textwzmc + "','" + textwzdz + "','" + textwzsm + "')"
cmd.commandtext=sql
result=cmd.execute
if result > 0 then
Response.Write "增加成功"
else
Response.Write "增加失败"
end if
根本不行,谁还有好方法啊 展开
3个回答
展开全部
补充 :
<!--#include virtual="/conn.asp" -->
改成
<!--#include file="/conn.asp" -->
<!--#include virtual="/conn.asp" -->
改成
<!--#include file="/conn.asp" -->
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你看看conn.asp有没有问题,单独打开conn.asp看看会不会出错,要是出错的话就是连接有问题
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询