北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
网站原来是单语 想增加一个 数据提交写入ACCESS数据表
数据表已经建立 就是后台提交写入数据表代码想请教一下高手
infosave.asp页面内容:
<!--#include file="conn.asp"-->
<!--#include file="session.asp"-->
<!--#include file="sql.asp"-->
<%dim action,id
id=srequest("id",1)
action=srequest("action",0)
select case action
case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from infotable where id="&id,conn,1,3
rs("lmname")=srequest("lmname",0)
rs("content")=request("content")
rs("Dt")=now()
rs.Update
rs.Close
set rs=nothing
response.write "<p align=center><font color=red>站内信息编辑成功!<br>2秒钟后返回上页!</font>"
response.write "<meta http-equiv=""refresh"" content=""2;url=infomanage.asp"">"
end select%>
标颜色的地方是原来数据表
想在原来基础上增加多数据表(后面加入en)
rs("lmnameen")=srequest("lmnameen",0)
rs("contenten")=request("contenten")
下面是sql.asp源码
<%
function sRequest(varname,varType)
Dim varValue
varValue=Request(varName)
If varType=1 then
If not isNumeric(varValue) then
response.Write "<script language=javascript>alert('参数输入错误,点击确定返回!');history.go(-1);</script>"
response.End
End if
Else
varValue=replace(varValue,"'","''")
End if
sRequest=varValue
End function%>