dictionaryadd.asp

电子词典在线版

<% if Session("dictionery_status") <> "login" then response.redirect "login.asp" 
%>
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<!--#include file="db.asp"-->

<%
response.buffer = true

'get action
a=request.form("a")

'get fields from form

x_ID = Request.Form("x_ID")
x_EnglishWord = Request.Form("x_EnglishWord")
x_Chinese = Request.Form("x_Chinese")
x_Yin = Request.Form("x_Yin")

' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str

Select Case a
	Case "A": ' Add

		' Open record
		strsql = "SELECT * FROM [dictionary] WHERE 0 = 1"

		set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open strsql, conn, 1, 2

		rs.AddNew

		
tmpFld = Trim(x_EnglishWord)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
rs("EnglishWord") = tmpFld
tmpFld = Trim(x_Chinese)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
rs("Chinese") = tmpFld
tmpFld = Trim(x_Yin)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
rs("Yin") = tmpFld

		rs.Update
		rs.Close
		Set rs = Nothing
		conn.Close
		Set conn = Nothing
		Response.Clear
		Response.Redirect "dictionarylist.asp"
End Select
%>


<!--#include file="header.asp"-->

<p><font size="-1">添加新的单词<br><br><a href="dictionarylist.asp">回到列表</font></a></p>

<script language="JavaScript" src="ew.js"></script>
<script language="JavaScript">
<!-- start Javascript
function  EW_checkMyForm(EW_this) {
return true;
}
// end JavaScript -->
</script>
<form onSubmit="return EW_checkMyForm(this);"  action="dictionaryadd.asp" method="post">
<p>
<input type="hidden" name="a" value="A">

<table border="0" cellspacing="1" cellpadding="5" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">English Word</font>&nbsp;</font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_EnglishWord" value="<%= x_EnglishWord %>" size=30 maxlength=50></font>&nbsp;</td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">中文意思</font>&nbsp;</font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_Chinese" value="<%= x_Chinese %>" size=30 maxlength=50></font>&nbsp;</td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">音标</font>&nbsp;</font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_Yin" value="<%= x_Yin %>" size=30 maxlength=50></font>&nbsp;</td>
</tr>
</table>
<p>
<input type="submit" name="Action" value="添加">
</form>

<!--#include file="footer.asp"-->