诗经中的弃妇形象:asp中添加记录的问题,加了个id自动编号,怎么改

来源:百度文库 编辑:高校问答 时间:2024/05/11 17:54:13
原先就用学号排序,后来因为学号中要添加字母,改成了文本,另加了一个字段id,结果添加不上记录了,该怎样改呢
原来代码是可以添加的,原来代码如下:
<META content="TEXT/HTML;CHARSET=GB2312">
<%@ CODEPAGE="936"%>
<!--#include file="dbconn.asp" -->
<%
dim rs
dim sql
'定义接收数据的临时变量
dim T_S_ID
dim T_S_NAME
dim T_S_SEX
dim T_S_IDCARD
dim T_S_NATIONALITY
dim T_S_BIRTHDAY
dim T_S_ENTRANCE
dim T_S_ACADEMY
dim T_S_CLASS
dim T_S_DIRECTION
dim T_S_DEGREE
dim T_S_RESUME
dim T_S_PHOTO
'接收数据
T_S_ID=request.Form("txtID")
T_S_NAME=request.Form("txtNAME")
T_S_SEX=request.Form("rgSEX")
T_S_IDCARD=request.Form("txtIDCARD")
T_S_NATIONALITY=request.Form("selectNATIONALITY")
T_S_BIRTHDAY=request.Form("txtBIRTHDAY")
T_S_ENTRANCE=request.Form("txtENTRANCE")
T_S_ACADEMY=request.Form("selectACADEMY")
T_S_CLASS=request.Form("selectCLASS")
T_S_DIRECTION=request.Form("selectDIRECTION")
T_S_DEGREE=request.Form("txtDEGREE")
T_S_PHOTO=request.Form("txtPHOTO")
T_S_RESUME=request.Form("txtRESUME")
'查询是否有相同学号的学生信息,若没有则录入
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from T_STUDENT where T_S_ID="&T_S_ID
rs.open sql,conn,3,2
if rs.eof then
'录入新的学生信息
rs.addnew
rs("T_S_ID")=T_S_ID
rs("T_S_NAME")=T_S_NAME
rs("T_S_SEX")=T_S_SEX
rs("T_S_IDCARD")=T_S_IDCARD
rs("T_S_NATIONALITY")=T_S_NATIONALITY
rs("T_S_BIRTHDAY")=T_S_BIRTHDAY
rs("T_S_ENTRANCE")=T_S_ENTRANCE
rs("T_S_ACADEMY")=T_S_ACADEMY
rs("T_S_CLASS")=T_S_CLASS
rs("T_S_DIRECTION")=T_S_DIRECTION
rs("T_S_DEGREE")=T_S_DEGREE
rs("T_S_PHOTO")=T_S_PHOTO
rs("T_S_RESUME")=T_S_RESUME
rs.update
response.write "成功录入"
else
response.write "已经有相同学号存在!"
end if
rs.close
set rs=nothing
response.redirect "DEFAULT.ASP"
%>
改成1,3还是不好用啊

如果你用的是自动编号,再加上字母当然添加不上去了。
不过可以用另外一种思路解决,ID还用数字类型按顺序自动编号,另外再加上一列,可以起名为ID1。而你的学号(number)=ID+ID1,明白我的意思?
例如你的学号是060629A。那么ID=060629(从数据库读取自动生成的),ID1=A,那么number(学号)=ID+ID1,然后把number插入到数据库就可以了。绝对没问题!

rs.open sql,conn,3,2 ---->rs.open sql,conn,1,3看看

要在数据库里改