<!--#include file=""-->
<link href="inc/" rel="stylesheet" type="text/css">
<script language="JavaScript" src="inc/"></script>
<%
'******************************
'file name:
'Function: Add data to management files
'Date: 2006-6-18
'programming:
'******************************
Dim Wid,Rs,Sql
Wid=700
Select Case Request("menu")
Case ""
Main
Case "AddOk"
IsAdd=1
RsOk
Case "EditRs"
EditRs
Case "EditOk"
IsAdd=0
RsOk
Case "DelOk"
("delete from [SIHRT_Rss] where Rss_ID="&Request("ID"))
("")
Case "DelAll"
if Request("CID")="" then
"<script>alertMsg('You did not select to delete item');</script>"
end if
for each DelItem in Request("CID")
("delete from [SIHRT_Rss] where Rss_ID="&DelItem)
next
("")
End Select
Sub Main
'This is main sub
Sql="select * from [SIHRT_Rss] order by Rss_ID"
Set Rs=("")
Sql,Conn,1,1
%>
<form action="?menu=DelAll" method="post" name="ListForm">
<table border="0" cellpadding="2" cellspacing="1" align="center" width="<%=Wid%>" class="tb_bg">
<tr class="tr_tt">
<td colspan="5" align="center">--==== RSS data management ====--</td>
</tr>
<tr class="tr_tt2">
<td width="5%" align="center" title="select data items all"><input type="checkbox" name="SelectAll" onclick="checkAll(this)" class="checkbox"></td>
<td width="5%" align="center">ID</td>
<td width="20%" align="center">Theme</td>
<td width="60%" align="center">Content</td>
<td width="10%" align="center">Operation</td>
</tr>
<%
if and then
"<tr class=""tr_bg""><td colspan=""5"" align=""center""><font color=red>No list item data, please add a record</font></td>"
else
do while not
%>
<tr class="tr_bg" onmouseover="='tr_over'" onmouseout="='tr_out'">
<td align="center"><input type="checkbox" name="CID" class="checkbox" value="<%=Rs("Rss_ID")%>"></td>
<td align="center"><%=Rs("Rss_ID")%></td>
<td><%=Rs("Rss_Title")%></td>
<td>
<%
Rss_cont=replace(Rs("Rss_Cont"),"<br>","")
if len(Rss_Cont)>32 then
left(Rss_Cont,32)&"..."
else
Rss_Cont
end if
%>
</td>
<td align="center">
<a href="?menu=EditRs&ID=<%=Rs("Rss_ID")%>" title="Edit this record">Edit</a> <a href="?menu=DelOk&ID=<%=Rs("Rss_ID")%>" title="Delete this record" onclick="checkConfirm('Are you sure you delete the record?')">Delete</a>
</td>
</tr>
<%
loop
end if
RsClose 'Close Recordset
%>
<tr class="tr_bg">
<td colspan="5"><input type="submit" name="DelAllItems" value="Delete the selected" class="button"></td>
</tr>
</table>
</form>
<form action="?menu=AddOk" method="post" name="AddForm" style="margin-top:4px;">
<table border="0" cellpadding="2" cellspacing="1" width="<%=Wid%>" align="center" class="tb_bg">
<tr class="tr_tt">
<td colspan="2" align="center">--==== Add record ====--</td>
</tr>
<tr class="tr_bg">
<td width="20%">Record topic</td>
<td width="80%"><input type="text" name="Rss_Title" size="24" maxlength="20"></td>
</tr>
<tr class="tr_bg">
<td valign="top" style="padding-top:4px;">Record content</td>
<td><textarea name="Rss_Cont" cols="40" rows="6"></textarea></td>
</tr>
<tr class="tr_bg">
<td colspan="2"><input type="submit" name="SRss" value="Add record" class="button"> <input type="reset" name="RRss" value="Rewrite" class="button"></td>
</tr>
</table>
</form>
<%
End Sub
Sub RsOk
Rss_Title=Trim(("Rss_Title"))
errorchar=array("@","#",".","|","%","&","+",";","<",">")
for i=0 to ubound(errorchar)
if instr(Rss_Title,errorchar(i))>0 then
"<script>alertMsg('Theme cannot contain special characters');</script>"
exit Sub
end if
next
Rss_Cont=("Rss_Cont")
if Rss_Title<>"" or Rss_Cont<>"" then
Sql="Select * from [SIHRT_Rss]"
Set Rs=("")
Sql,Conn,1,3
if IsAdd=1 then
end if
Rs("Rss_Title")=Rss_Title
Rs("Rss_Cont")=Rss_Cont
""
RsClose
else
"<script>alertMsg('Please add complete record information')</script>"
end if
End Sub
Sub EditRs
Sql="select * from [SIHRT_Rss] where Rss_ID="&Request("ID")
Set Rs=("")
Sql,Conn,1,1
%>
<form action="?menu=EditOk" method="post" name="AddForm" style="margin-top:4px;">
<table border="0" cellpadding="2" cellspacing="1" width="<%=Wid%>" align="center" class="tb_bg">
<tr class="tr_tt">
<td colspan="2" align="center">--==== Edit record ===--</td>
</tr>
<tr class="tr_bg">
<td width="20%">Record topic</td>
<td width="80%"><input type="text" name="Rss_Title" size="24" maxlength="20" value="<%=Rs("Rss_Title")%>"></td>
</tr>
<tr class="tr_bg">
<td valign="top" style="padding-top:4px;">Record content</td>
<td><textarea name="Rss_Cont" cols="40" rows="6"><%=replace(Rs("Rss_Cont"),"<br>",chr(10))%></textarea></td>
</tr>
<tr class="tr_bg">
<td colspan="2">
<input type="submit" name="SRss" value="Modify record" class="button">
<input type="reset" name="RRss" value="Rewrite" class="button">
<input type="button" name="GoBack" value="Return to previous page" class="button" onclick="();">
</td>
</tr>
</table>
</form>
<%
End Sub
ConnClose
%>