• 主页
  • ASP
  • .NET Framework
  • Web Services
  • VB
  • VC
  • 图表区
  • 分析与设计
  • 组件/控件开发
  • LINQ

求助ASP高手(不是ASP.net),想定义一个对数据库操作的按钮功能,应该怎么弄?

lunasea0_0 2005-09-24 04:04:21
<script Language=VBScript>
Function Modify()
Set objConn=server.CreateObject("ADODB.Connection")
objConn.Open DB_STRCONNECT(db_strconnect用来数据库链接)
strSQL="update tblMeetingRoom set _strRoomExt='"&strRoomExt.value&"',_strCPU='"&strCPU.value&"' where _intRoomID=" + cstr(intRoomId)
objConn.Execute(strSQL)
Response.write strSQL
set objConn = nothing
END Function
</script>
<center><input class=lptv11 type=button value="OK" onclick="Modify()">
大致代码如上

问题:缺少对象: 'server',就是这里的第3行。
去掉第3行,又是缺少对象: 'Execute'或者'Response'
反正就是这些本来都能用的函数不行了,奇怪了。帮忙啊
...全文
73 点赞 收藏 7
写回复
7 条回复
lunasea0_0 2005年09月26日
我是菜鸟,公司要改asp的东西,asp不懂啊,如何post到服务器端做啊?
实现这样一个功能,有些框让人填写,填写好以后插入到sql server的表中。

灰豆宝宝?我没找到阿?
回复 点赞
adandelion 2005年09月26日
news_edit_save.asp页面获得news_edit.aspx的值增加/修改数据.
<!--#include file="../inc/conn.asp"-->
<%

dim nNewsID,strTitle,nTip,strContent,strDate
dim saveType
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")

nNewsID=trim(request("nNewsID")&"")
strTitle=trim(request.form("newsTitle")&"")
strContent=trim(request.form("newsContent")&"")
newsTime=trim(request.form("newsTime"))
newsTip=trim(request.form("newsTip"))
'strDefaultUrl=trim(request.form("news_defaultUrl")&"")
strAuthor=trim(request.form("newsAuthor")&"")
strDefaultUrl=""
strUploadFiles=trim(request.form("news_uploadFiles")&"")
strType=trim(request.form("newstype")&"")
strNew=trim(request.form("newsNew")&"")
if strNews="" then strNew=0
strContent=replace(strContent,"'","''")
if newsTip&""="" then newsTip=0


if mid(strUploadFiles,1,1)="|" then strUploadFiles=mid(strUploadFiles,2)
if mid(strDefaultUrl,1,1)="|" then strDefaultUrl=mid(strDefaultUrl,2)

if nNewsID="" then
saveType="ADD"
call saveAdd()
else
saveType="MODIFY"
call saveModify()
end if
if err=0 then
response.redirect "news_manage.asp?strType="&strType
else
call errInfoAlert("保存失败","")
end if

'新增保存
function saveAdd()
dim rsMax,sqlMax
sqlMax="select max(news_id) from news"
'response.write sqlMax&"<br>"
set rsMax=server.createObject("adodb.recordset")
rsMax.open sqlMax,conn,1,1
nNewsID=1
if not rsMax.eof then
if rsMax(0)&""<>"" then
nNewsID=rsMax(0)+1
end if
end if

'closeRS(rsMax)

'新增加一条新闻
dim sqlAdd
sqlAdd="insert into news(news_id,news_title,news_time,news_content,news_tip,news_defaultUrl,news_uploadFiles,news_type,news_author,news_new) values ('"&nNewsID&"','"&strTitle&"','"&newstime&"','"&strContent&"','"&newsTip&"','"&strDefaultUrl&"','"&strUploadFiles&"','"&strType&"','"&strAuthor&"','"&strNew&"')"
response.write sqlAdd&"<br>"
conn.execute (sqlAdd)
end function

'修改保存
function saveModify()
dim sqlModify,rsModify
sqlModify="update news set news_title='"&strTitle&"',news_time='"&newstime&"',news_content='"&strContent&"',news_uploadFiles='"&strUploadFiles&"',news_defaultUrl='"&strDefaultUrl&"',news_tip='"&newsTip&"',news_type='"&strType&"',news_author='"&strAuthor&"',news_new='"&strNew&"' where news_id="&nNewsID
'response.write sqlModify
conn.execute(sqlModify)
end function
%>
回复 点赞
adandelion 2005年09月26日
我是菜鸟,公司要改asp的东西,asp不懂啊,如何post到服务器端做啊?
实现这样一个功能,有些框让人填写,填写好以后插入到sql server的表中。
--------------------------------------------------------
这是ASP的基本操作数据的东东.ASP代码漫天飞了.找不到?

http://www.google.com/search?hl=zh-CN&q=asp%E7%95%99%E8%A8%80%E6%9C%AC&lr=
里面是asp 留言本 donwnload一个看看代码.
<script Language=VBScript>是脚本语言在客户端运行的.
------------------------------------------------------------
conn.asp 内容:
<%
dim conn
dim connstr
dim db
db="../database/kebo.asa" '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

'关闭数据库连接
sub CloseConn()
conn.close
set conn=nothing
end sub

'关闭RS
sub colseRS(rsName)
rsName.close
set rsName=nothing
end sub
%>
news_edit.asp
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/pubFunction.asp"-->
<%

dim nNewsID,strTitle,nTip,strContent,strDate,strType
strDate=date
strTip=0
nNewsID=request.querystring("nNewsID")&""
'语言类别
strType=request("strType")&""
if strType="" then call errInfoAlert("类别错误!","")

strAuthor="科博留学"
'若为增加简报则初始化简报的模板
if strType=1 then
strTitle2="新闻"
elseif strType=2 then
strTitle2="简报"
strContent="简报"
strTitle="科博留学简报第一期"
elseif strType=3 then
strTitle2="参考资料"
strContent="参考资料"
end if
nNew=2
if nNewsID<>"" then
'初始化新闻信息
dim rsNews,sqlNews
sqlNews="select * from news where news_id="&nNewsID
set rsNews=server.createobject("adodb.recordset")
rsNews.open sqlNews,conn,1,1
if not rsNews.eof then
strTitle=rsNews("news_title")&""
strDate=rsNews("news_time")&""
nTip=rsNews("news_tip")
strContent=rsNews("news_content")&""
strTip=rsNews("news_Tip")
strDefaultUrl=rsNews("news_defaultUrl")&""
strUploadFiles=rsNews("news_uploadFiles")&""
strType=rsNews("news_type")&"" '中英文判断 1:新闻;2:简报;3资料。
strAuthor=rsNews("news_author")&""
nNew=rsNews("news_new")&""
end if
rsNews.close
set rsNews=nothing
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> 编辑信息 </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<link rel="stylesheet" type="text/css" href="Admin_Style.css">
<SCRIPT LANGUAGE="JavaScript" src='../inc/checkForm.js'></SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkForm()
{
if (editor.EditMode.checked==true)
document.frmEdit.newsContent.value=editor.HtmlEdit.document.body.innerText;
else
document.frmEdit.newsContent.value=editor.HtmlEdit.document.body.innerHTML;
//标题不能为空!
if (frmEdit.newsTitle.value=="")
{
frmEdit.newsTitle.focus();
alert("请输入标题!");
return;
}
//日期判断
if (frmEdit.newstime.value=="")
{
frmEdit.newstime.focus();
alert("请输入日期!");
return;
}
else
{
if(!isDate(frmEdit.newstime))
return;
}
//判断数字
if(!isNumber(frmEdit.newsTip))
return;
//内容不能为空!
if (document.frmEdit.newsContent.value=="")
{
alert("内容不能为空!");
editor.HtmlEdit.focus();
return
}
if (document.frmEdit.newsContent.value.length>64000)
{
alert("内容太长,超出了数据库的限制(64K)!建议分成几部分录入。");
editor.HtmlEdit.focus();
//return ;
}
frmEdit.action="news_edit_save.asp?nNewsID=<%=nNewsID%>"
frmEdit.submit();
}
function loadForm()
{
editor.HtmlEdit.document.body.innerHTML=document.frmEdit.newsContent.value;
return true;
}
//-->
</SCRIPT>
</HEAD>
<BODY onLoad="javascipt:setTimeout('loadForm()',1000);">
<FORM METHOD=POST id='frmEdit' name='frmEdit'>
<TABLE>
<TR>
<TD><!-- 语言选择: --></TD>
<TD colspan='3' ><b>      编辑<%=strTitle2%></b>
<!-- <SELECT NAME="newsType">
<option value=1 <%if strType=1 then response.write "selected"%>>中 文</option>
<option value=2 <%if strType=2 then response.write "selected"%>>英 文</option>
</SELECT> -->
<INPUT TYPE="hidden" NAME="newsType" value='<%=strType%>' >
</TD>
</TR>
<TR>
<TD>标 题:</TD>
<TD colspan='3'><INPUT TYPE="text" style='width:340px' NAME="newsTitle" maxlength='50' value='<%=strTitle%>'></TD>
</TR>
<%if strType=1 then%>
<TR>
<TD>来 源:</TD>
<TD colspan='3'><INPUT TYPE="text" style='width:340px' NAME="newsAuthor" maxlength='50' value='<%=strAuthor%>'></TD>
</TR>
<%end if%>
<TR>
<TD>发布时间:</TD>
<TD colspan='3'><INPUT TYPE="text" NAME="newstime" value='<%=strDate%>' >  
<%if strType=1 then%>
浏览次数:
<INPUT TYPE="text" NAME="newsTip" value='<%=strTip%>'>
<%else%>
<INPUT TYPE="hidden" NAME="newsTip" value='<%=strTip%>'>
<%end if%>
</TD>
</TR>
<%if strType=1 then%>
<TR>
<TD>最新标志:</TD>
<TD colspan='3'>  显示
<INPUT TYPE="radio" NAME="newsNew" maxlength='50' value='1' <%if nNew=1 then response.write "checked"%>>
  不显示
<INPUT TYPE="radio" NAME="newsNew" maxlength='50' value='2' <%if nNew=2 then response.write "checked"%>>
(用于设置是否为最新的新闻)</TD>

</TR>
<%end if%>
<TR>
<TD colspan='4'>
<textarea name="newsContent" style="display:none"><%=strContent%></textarea>
<iframe ID="editor" src="editor.asp" frameborder=1 scrolling=no width="600" height="405"></iframe>
</TD>
</TR>
<input name="news_uploadFiles" type="hidden" id="news_uploadFiles" value="<%=strUploadFiles%>">
<TR>
<TD></TD>
<TD colspan='2'>
<INPUT TYPE="button" value='保 存' onclick='javascript:checkForm();'>  
<INPUT TYPE="reset" value="重 置">  
<INPUT TYPE="button" value="返 回" onclick='javascript:history.go(-1);'>
</TD>
<TD></TD>
</TR>
</TABLE>
</FORM>

</BODY>
<%closeConn()%>
</HTML>
回复 点赞
sh5281 2005年09月26日

.net 中是服务端控件 直接触发服务端的事件 。 asp 中是 客户端控件 ,需要提交后,才能在服务端进行操作.
回复 点赞
foxconn_nich 2005年09月24日
点击按钮就post提交就可以了,不明白你的具体需求
回复 点赞
zykj_2000 2005年09月24日
能不能说一下你的详细需求
这样的功能为什么不POST以后再在服务端处理
回复 点赞
iuhxq 2005年09月24日
<script Language=VBScript>
Function Modify()
Set objConn=server.CreateObject("ADODB.Connection")
objConn.Open DB_STRCONNECT(db_strconnect用来数据库链接)
strSQL="update tblMeetingRoom set _strRoomExt='"&strRoomExt.value&"',_strCPU='"&strCPU.value&"' where _intRoomID=" + cstr(intRoomId)
objConn.Execute(strSQL)
Response.write strSQL
set objConn = nothing
END Function
</script>

这个代码不能在本地运行,要在服务器端运行

<script Language=VBScript runat="server">
Function Modify()
Set objConn=server.CreateObject("ADODB.Connection")
objConn.Open DB_STRCONNECT(db_strconnect用来数据库链接)
strSQL="update tblMeetingRoom set _strRoomExt='"&strRoomExt.value&"',_strCPU='"&strCPU.value&"' where _intRoomID=" + cstr(intRoomId)
objConn.Execute(strSQL)
Response.write strSQL
set objConn = nothing
END Function
</script>

<center><input class=lptv11 type=button value="OK" onclick="Modify()">现在又不能直接运行服务器端代码,所以建议你搜索一下“灰豆宝宝 无刷新”,有详细介绍
回复 点赞
发动态
发帖子
.NET技术社区
创建于2007-09-28

4.9w+

社区成员

66.8w+

社区内容

.NET技术交流专区
社区公告
暂无公告